| / Developer CD Series 1994 November: Tool Chest
/ Dev.CD Nov 94.toast / Apple II / Essentials / Essentials.sea / MPW IIGS Interfaces / PIIGSIncludes / QuickDraw.p
| < prev | next > |
| MacBinary | 1993-06-15 | 19.3 KB | [TEXT/MPS ] |
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text| Confidence | Program | Detection | Match Type | Support |
|---|---|---|---|---|
| 66% | dexvert | ZX81 Sinclair BASIC (image/sinclairBASIC) | ext | Supported |
| 10% | dexvert | MacBinary (archive/macBinary) | fallback | Supported |
| 1% | dexvert | Applause Picture (image/applausePicture) | ext | Unsupported |
| 1% | dexvert | bsdiff patch (other/bsdiffPatch) | ext | Unsupported |
| 1% | dexvert | imgdiff patch (other/imgdiffPatch) | ext | Unsupported |
| 1% | dexvert | MATLAB p-code (other/matlabPCode) | ext | Unsupported |
| 1% | dexvert | WSUS Patch Storage File (other/wsusPatchStorageFile) | ext | Unsupported |
| 1% | dexvert | Text File (text/txt) | fallback | Supported |
| 100% | file | MacBinary II, inited, Tue Jun 15 12:17:03 1993, modified Tue Jun 15 12:17:03 1993, creator 'MPS ', type ASCII, 18998 bytes "QuickDraw.p" , at 0x4ab6 428 bytes resource | default (weak) | |
| 99% | file | data | default | |
| 74% | TrID | Macintosh plain text (MacBinary) | default | |
| 25% | TrID | MacBinary 2 | default (weak) | |
| 100% | siegfried | fmt/1762 MacBinary (II) | default | |
| 100% | lsar | MacBinary | default |
| id metadata | |
|---|---|
| key | value |
| macFileType | [TEXT] |
| macFileCreator | [MPS ] |
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 51 75 69 63 6b 44 | 72 61 77 2e 70 00 00 00 |..QuickD|raw.p...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 4a 36 00 | 00 01 ac a8 43 a6 7f a8 |.....J6.|....C...|
|00000060| 43 a6 7f 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |C.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 7a 57 00 00 |........|....zW..|
|00000080| 7b 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |{*******|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 3b 20 |********|*****.; |
|000000b0| 46 69 6c 65 3a 20 51 75 | 69 63 6b 64 72 61 77 2e |File: Qu|ickdraw.|
|000000c0| 70 0d 3b 0d 3b 0d 3b 20 | 43 6f 70 79 72 69 67 68 |p.;.;.; |Copyrigh|
|000000d0| 74 20 41 70 70 6c 65 20 | 43 6f 6d 70 75 74 65 72 |t Apple |Computer|
|000000e0| 2c 20 49 6e 63 2e 20 31 | 39 38 36 2d 39 32 0d 3b |, Inc. 1|986-92.;|
|000000f0| 20 41 6c 6c 20 52 69 67 | 68 74 73 20 52 65 73 65 | All Rig|hts Rese|
|00000100| 72 76 65 64 0d 3b 0d 2a | 2a 2a 2a 2a 2a 2a 2a 2a |rved.;.*|********|
|00000110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000120| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000130| 2a 2a 2a 7d 0d 0d 55 4e | 49 54 20 51 55 49 43 4b |***}..UN|IT QUICK|
|00000140| 44 52 41 57 3b 0d 49 4e | 54 45 52 46 41 43 45 0d |DRAW;.IN|TERFACE.|
|00000150| 55 53 45 53 20 54 59 50 | 45 53 3b 0d 43 4f 4e 53 |USES TYP|ES;.CONS|
|00000160| 54 0d 0d 7b 20 45 72 72 | 6f 72 20 43 6f 64 65 73 |T..{ Err|or Codes|
|00000170| 20 7d 0d 61 6c 72 65 61 | 64 79 49 6e 69 74 69 61 | }.alrea|dyInitia|
|00000180| 6c 69 7a 65 64 20 3d 20 | 24 30 34 30 31 3b 20 20 |lized = |$0401; |
|00000190| 7b 20 51 75 69 63 6b 64 | 72 61 77 20 61 6c 72 65 |{ Quickd|raw alre|
|000001a0| 61 64 79 20 69 6e 69 74 | 69 61 6c 69 7a 65 64 20 |ady init|ialized |
|000001b0| 7d 0d 63 61 6e 6e 6f 74 | 52 65 73 65 74 20 3d 20 |}.cannot|Reset = |
|000001c0| 24 30 34 30 32 3b 20 20 | 7b 20 6e 65 76 65 72 20 |$0402; |{ never |
|000001d0| 75 73 65 64 20 7d 0d 6e | 6f 74 49 6e 69 74 69 61 |used }.n|otInitia|
|000001e0| 6c 69 7a 65 64 20 3d 20 | 24 30 34 30 33 3b 20 20 |lized = |$0403; |
|000001f0| 7b 20 51 75 69 63 6b 64 | 72 61 77 20 6e 6f 74 20 |{ Quickd|raw not |
|00000200| 69 6e 69 74 69 61 6c 69 | 7a 65 64 20 7d 0d 73 63 |initiali|zed }.sc|
|00000210| 72 65 65 6e 52 65 73 65 | 72 76 65 64 20 3d 20 24 |reenRese|rved = $|
|00000220| 30 34 31 30 3b 20 20 7b | 20 73 63 72 65 65 6e 20 |0410; {| screen |
|00000230| 72 65 73 65 72 76 65 64 | 20 7d 0d 62 61 64 52 65 |reserved| }.badRe|
|00000240| 63 74 20 3d 20 24 30 34 | 31 31 3b 20 20 7b 20 62 |ct = $04|11; { b|
|00000250| 61 64 20 72 65 63 74 61 | 6e 67 6c 65 20 7d 0d 6e |ad recta|ngle }.n|
|00000260| 6f 74 45 71 75 61 6c 43 | 68 75 6e 6b 69 6e 65 73 |otEqualC|hunkines|
|00000270| 73 20 3d 20 24 30 34 32 | 30 3b 20 20 7b 20 43 68 |s = $042|0; { Ch|
|00000280| 75 6e 6b 69 6e 65 73 73 | 20 69 73 20 6e 6f 74 20 |unkiness| is not |
|00000290| 65 71 75 61 6c 20 7d 0d | 72 67 6e 41 6c 72 65 61 |equal }.|rgnAlrea|
|000002a0| 64 79 4f 70 65 6e 20 3d | 20 24 30 34 33 30 3b 20 |dyOpen =| $0430; |
|000002b0| 20 7b 20 72 65 67 69 6f | 6e 20 69 73 20 61 6c 72 | { regio|n is alr|
|000002c0| 65 61 64 79 20 6f 70 65 | 6e 20 7d 0d 72 67 6e 4e |eady ope|n }.rgnN|
|000002d0| 6f 74 4f 70 65 6e 20 3d | 20 24 30 34 33 31 3b 20 |otOpen =| $0431; |
|000002e0| 20 7b 20 72 65 67 69 6f | 6e 20 69 73 20 6e 6f 74 | { regio|n is not|
|000002f0| 20 6f 70 65 6e 20 7d 0d | 72 67 6e 53 63 61 6e 4f | open }.|rgnScanO|
|00000300| 76 65 72 66 6c 6f 77 20 | 3d 20 24 30 34 33 32 3b |verflow |= $0432;|
|00000310| 20 20 7b 20 72 65 67 69 | 6f 6e 20 73 63 61 6e 20 | { regi|on scan |
|00000320| 6f 76 65 72 66 6c 6f 77 | 20 7d 0d 72 67 6e 46 75 |overflow| }.rgnFu|
|00000330| 6c 6c 20 3d 20 24 30 34 | 33 33 3b 20 20 7b 20 72 |ll = $04|33; { r|
|00000340| 65 67 69 6f 6e 20 69 73 | 20 66 75 6c 6c 20 7d 0d |egion is| full }.|
|00000350| 70 6f 6c 79 41 6c 72 65 | 61 64 79 4f 70 65 6e 20 |polyAlre|adyOpen |
|00000360| 3d 20 24 30 34 34 30 3b | 20 20 7b 20 70 6f 6c 79 |= $0440;| { poly|
|00000370| 20 69 73 20 61 6c 72 65 | 61 64 79 20 6f 70 65 6e | is alre|ady open|
|00000380| 20 7d 0d 70 6f 6c 79 4e | 6f 74 4f 70 65 6e 20 3d | }.polyN|otOpen =|
|00000390| 20 24 30 34 34 31 3b 20 | 20 7b 20 70 6f 6c 79 20 | $0441; | { poly |
|000003a0| 69 73 20 6e 6f 74 20 6f | 70 65 6e 20 7d 0d 70 6f |is not o|pen }.po|
|000003b0| 6c 79 54 6f 6f 42 69 67 | 20 3d 20 24 30 34 34 32 |lyTooBig| = $0442|
|000003c0| 3b 20 20 7b 20 70 6f 6c | 79 20 69 73 20 74 6f 6f |; { pol|y is too|
|000003d0| 20 62 69 67 20 7d 0d 62 | 61 64 54 61 62 6c 65 4e | big }.b|adTableN|
|000003e0| 75 6d 20 3d 20 24 30 34 | 35 30 3b 20 20 7b 20 62 |um = $04|50; { b|
|000003f0| 61 64 20 74 61 62 6c 65 | 20 6e 75 6d 62 65 72 20 |ad table| number |
|00000400| 7d 0d 62 61 64 43 6f 6c | 6f 72 4e 75 6d 20 3d 20 |}.badCol|orNum = |
|00000410| 24 30 34 35 31 3b 20 20 | 7b 20 62 61 64 20 63 6f |$0451; |{ bad co|
|00000420| 6c 6f 72 20 6e 75 6d 62 | 65 72 20 7d 0d 62 61 64 |lor numb|er }.bad|
|00000430| 53 63 61 6e 4c 69 6e 65 | 20 3d 20 24 30 34 35 32 |ScanLine| = $0452|
|00000440| 3b 20 20 7b 20 62 61 64 | 20 73 63 61 6e 20 6c 69 |; { bad| scan li|
|00000450| 6e 65 20 7d 0d 6e 6f 74 | 49 6d 70 6c 65 6d 65 6e |ne }.not|Implemen|
|00000460| 74 65 64 20 3d 20 24 30 | 34 46 46 3b 20 20 7b 20 |ted = $0|4FF; { |
|00000470| 6e 6f 74 20 69 6d 70 6c | 65 6d 65 6e 74 65 64 20 |not impl|emented |
|00000480| 7d 0d 0d 7b 20 20 7d 0d | 74 73 4e 75 6d 62 65 72 |}..{ }.|tsNumber|
|00000490| 20 3d 20 24 30 34 3b 0d | 0d 7b 20 41 6e 53 43 42 | = $04;.|.{ AnSCB|
|000004a0| 42 79 74 65 20 4d 61 73 | 6b 73 20 7d 0d 5f 63 6f |Byte Mas|ks }._co|
|000004b0| 6c 6f 72 54 61 62 6c 65 | 20 3d 20 24 30 46 3b 20 |lorTable| = $0F; |
|000004c0| 20 7b 20 4d 61 73 6b 20 | 66 6f 72 20 53 43 42 20 | { Mask |for SCB |
|000004d0| 63 6f 6c 6f 72 20 74 61 | 62 6c 65 20 7d 0d 73 63 |color ta|ble }.sc|
|000004e0| 62 52 65 73 65 72 76 65 | 64 20 3d 20 24 31 30 3b |bReserve|d = $10;|
|000004f0| 20 20 7b 20 4d 61 73 6b | 20 66 6f 72 20 53 43 42 | { Mask| for SCB|
|00000500| 20 72 65 73 65 72 76 65 | 64 20 62 69 74 20 7d 0d | reserve|d bit }.|
|00000510| 73 63 62 46 69 6c 6c 20 | 3d 20 24 32 30 3b 20 20 |scbFill |= $20; |
|00000520| 7b 20 4d 61 73 6b 20 66 | 6f 72 20 53 43 42 20 66 |{ Mask f|or SCB f|
|00000530| 69 6c 6c 20 62 69 74 20 | 7d 0d 73 63 62 49 6e 74 |ill bit |}.scbInt|
|00000540| 65 72 72 75 70 74 20 3d | 20 24 34 30 3b 20 20 7b |errupt =| $40; {|
|00000550| 20 4d 61 73 6b 20 66 6f | 72 20 53 43 42 20 69 6e | Mask fo|r SCB in|
|00000560| 74 65 72 72 75 70 74 20 | 62 69 74 20 7d 0d 73 63 |terrupt |bit }.sc|
|00000570| 62 43 6f 6c 6f 72 4d 6f | 64 65 20 3d 20 24 38 30 |bColorMo|de = $80|
|00000580| 3b 20 20 7b 20 4d 61 73 | 6b 20 66 6f 72 20 53 43 |; { Mas|k for SC|
|00000590| 42 20 63 6f 6c 6f 72 20 | 6d 6f 64 65 20 62 69 74 |B color |mode bit|
|000005a0| 20 7d 0d 0d 7b 20 43 6f | 6c 6f 72 44 61 74 61 20 | }..{ Co|lorData |
|000005b0| 7d 0d 74 61 62 6c 65 33 | 32 30 20 3d 20 24 33 32 |}.table3|20 = $32|
|000005c0| 3b 20 20 7b 20 28 76 61 | 6c 3d 73 69 7a 65 29 20 |; { (va|l=size) |
|000005d0| 7d 0d 74 61 62 6c 65 36 | 34 30 20 3d 20 24 33 32 |}.table6|40 = $32|
|000005e0| 3b 20 20 7b 20 28 76 61 | 6c 3d 73 69 7a 65 29 20 |; { (va|l=size) |
|000005f0| 7d 0d 0d 7b 20 43 6f 6c | 6f 72 56 61 6c 75 65 20 |}..{ Col|orValue |
|00000600| 7d 0d 62 6c 75 65 4d 61 | 73 6b 20 3d 20 24 30 30 |}.blueMa|sk = $00|
|00000610| 30 46 3b 20 20 7b 20 4d | 61 73 6b 20 66 6f 72 20 |0F; { M|ask for |
|00000620| 42 6c 75 65 20 6e 69 62 | 62 6c 65 20 7d 0d 67 72 |Blue nib|ble }.gr|
|00000630| 65 65 6e 4d 61 73 6b 20 | 3d 20 24 30 30 46 30 3b |eenMask |= $00F0;|
|00000640| 20 20 7b 20 4d 61 73 6b | 20 66 6f 72 20 67 72 65 | { Mask| for gre|
|00000650| 65 6e 20 6e 69 62 62 6c | 65 20 7d 0d 72 65 64 4d |en nibbl|e }.redM|
|00000660| 61 73 6b 20 3d 20 24 30 | 46 30 30 3b 20 20 7b 20 |ask = $0|F00; { |
|00000670| 4d 61 73 6b 20 66 6f 72 | 20 72 65 64 20 6e 69 62 |Mask for| red nib|
|00000680| 62 6c 65 20 7d 0d 0d 7b | 20 46 6f 6e 74 46 6c 61 |ble }..{| FontFla|
|00000690| 67 73 20 7d 0d 77 69 64 | 4d 61 78 53 69 7a 65 20 |gs }.wid|MaxSize |
|000006a0| 3d 20 24 30 30 30 31 3b | 0d 7a 65 72 6f 53 69 7a |= $0001;|.zeroSiz|
|000006b0| 65 20 3d 20 24 30 30 30 | 32 3b 0d 0d 7b 20 47 72 |e = $000|2;..{ Gr|
|000006c0| 61 66 50 6f 72 74 20 53 | 69 7a 65 73 20 7d 0d 6d |afPort S|izes }.m|
|000006d0| 61 73 6b 53 69 7a 65 20 | 3d 20 24 30 38 3b 20 20 |askSize |= $08; |
|000006e0| 7b 20 4d 61 73 6b 20 53 | 69 7a 65 20 28 76 61 6c |{ Mask S|ize (val|
|000006f0| 3d 73 69 7a 65 29 20 7d | 0d 6c 6f 63 53 69 7a 65 |=size) }|.locSize|
|00000700| 20 3d 20 24 31 30 3b 20 | 20 7b 20 4c 6f 63 20 53 | = $10; | { Loc S|
|00000710| 69 7a 65 20 28 76 61 6c | 3d 73 69 7a 65 29 20 7d |ize (val|=size) }|
|00000720| 0d 70 61 74 73 69 7a 65 | 20 3d 20 24 32 30 3b 20 |.patsize| = $20; |
|00000730| 20 7b 20 50 61 74 74 65 | 72 6e 20 53 69 7a 65 20 | { Patte|rn Size |
|00000740| 28 76 61 6c 3d 73 69 7a | 65 29 20 7d 0d 70 6e 53 |(val=siz|e) }.pnS|
|00000750| 74 61 74 65 53 69 7a 65 | 20 3d 20 24 33 32 3b 20 |tateSize| = $32; |
|00000760| 20 7b 20 50 65 6e 20 53 | 74 61 74 65 20 53 69 7a | { Pen S|tate Siz|
|00000770| 65 20 28 56 61 6c 3d 73 | 69 7a 65 29 20 7d 0d 70 |e (Val=s|ize) }.p|
|00000780| 6f 72 74 53 69 7a 65 20 | 3d 20 24 41 41 3b 20 20 |ortSize |= $AA; |
|00000790| 7b 20 53 69 7a 65 20 6f | 66 20 47 72 61 66 50 6f |{ Size o|f GrafPo|
|000007a0| 72 74 20 7d 0d 0d 7b 20 | 4d 61 73 74 65 72 43 6f |rt }..{ |MasterCo|
|000007b0| 6c 6f 72 73 20 7d 0d 62 | 6c 61 63 6b 20 3d 20 24 |lors }.b|lack = $|
|000007c0| 30 30 30 3b 20 20 7b 20 | 54 68 65 73 65 20 77 6f |000; { |These wo|
|000007d0| 72 6b 20 69 6e 20 33 32 | 30 20 61 6e 64 20 36 34 |rk in 32|0 and 64|
|000007e0| 30 20 6d 6f 64 65 20 7d | 0d 62 6c 75 65 20 3d 20 |0 mode }|.blue = |
|000007f0| 24 30 30 46 3b 20 20 7b | 20 54 68 65 73 65 20 77 |$00F; {| These w|
|00000800| 6f 72 6b 20 69 6e 20 33 | 32 30 20 61 6e 64 20 36 |ork in 3|20 and 6|
|00000810| 34 30 20 6d 6f 64 65 20 | 7d 0d 64 61 72 6b 47 72 |40 mode |}.darkGr|
|00000820| 65 65 6e 33 32 30 20 3d | 20 24 30 38 30 3b 20 20 |een320 =| $080; |
|00000830| 7b 20 54 68 65 73 65 20 | 77 6f 72 6b 20 69 6e 20 |{ These |work in |
|00000840| 33 32 30 20 6d 6f 64 65 | 20 7d 0d 67 72 65 65 6e |320 mode| }.green|
|00000850| 33 32 30 20 3d 20 24 30 | 45 30 3b 20 20 7b 20 54 |320 = $0|E0; { T|
|00000860| 68 65 73 65 20 77 6f 72 | 6b 20 69 6e 20 33 32 30 |hese wor|k in 320|
|00000870| 20 6d 6f 64 65 20 7d 0d | 67 72 65 65 6e 36 34 30 | mode }.|green640|
|00000880| 20 3d 20 24 30 46 30 3b | 20 20 7b 20 54 68 65 73 | = $0F0;| { Thes|
|00000890| 65 20 77 6f 72 6b 20 69 | 6e 20 36 34 30 20 6d 6f |e work i|n 640 mo|
|000008a0| 64 65 20 7d 0d 6c 69 67 | 68 74 42 6c 75 65 33 32 |de }.lig|htBlue32|
|000008b0| 30 20 3d 20 24 34 44 46 | 3b 20 20 7b 20 54 68 65 |0 = $4DF|; { The|
|000008c0| 73 65 20 77 6f 72 6b 20 | 69 6e 20 33 32 30 20 6d |se work |in 320 m|
|000008d0| 6f 64 65 20 7d 0d 70 75 | 72 70 6c 65 33 32 30 20 |ode }.pu|rple320 |
|000008e0| 3d 20 24 37 32 43 3b 20 | 20 7b 20 54 68 65 73 65 |= $72C; | { These|
|000008f0| 20 77 6f 72 6b 20 69 6e | 20 33 32 30 20 6d 6f 64 | work in| 320 mod|
|00000900| 65 20 7d 0d 64 61 72 6b | 47 72 61 79 33 32 30 20 |e }.dark|Gray320 |
|00000910| 3d 20 24 37 37 37 3b 20 | 20 7b 20 54 68 65 73 65 |= $777; | { These|
|00000920| 20 77 6f 72 6b 20 69 6e | 20 33 32 30 20 6d 6f 64 | work in| 320 mod|
|00000930| 65 20 7d 0d 70 65 72 69 | 77 69 6e 6b 6c 65 42 6c |e }.peri|winkleBl|
|00000940| 75 65 33 32 30 20 3d 20 | 24 37 38 46 3b 20 20 7b |ue320 = |$78F; {|
|00000950| 20 54 68 65 73 65 20 77 | 6f 72 6b 20 69 6e 20 33 | These w|ork in 3|
|00000960| 32 30 20 6d 6f 64 65 20 | 7d 0d 62 72 6f 77 6e 33 |20 mode |}.brown3|
|00000970| 32 30 20 3d 20 24 38 34 | 31 3b 20 20 7b 20 54 68 |20 = $84|1; { Th|
|00000980| 65 73 65 20 77 6f 72 6b | 20 69 6e 20 33 32 30 20 |ese work| in 320 |
|00000990| 6d 6f 64 65 20 7d 0d 6c | 69 67 68 74 47 72 61 79 |mode }.l|ightGray|
|000009a0| 33 32 30 20 3d 20 24 30 | 43 43 43 3b 20 20 7b 20 |320 = $0|CCC; { |
|000009b0| 54 68 65 73 65 20 77 6f | 72 6b 20 69 6e 20 33 32 |These wo|rk in 32|
|000009c0| 30 20 6d 6f 64 65 20 7d | 0d 72 65 64 33 32 30 20 |0 mode }|.red320 |
|000009d0| 3d 20 24 30 44 30 30 3b | 20 20 7b 20 54 68 65 73 |= $0D00;| { Thes|
|000009e0| 65 20 77 6f 72 6b 20 69 | 6e 20 33 32 30 20 6d 6f |e work i|n 320 mo|
|000009f0| 64 65 20 7d 0d 6c 69 6c | 61 63 33 32 30 20 3d 20 |de }.lil|ac320 = |
|00000a00| 24 30 44 41 46 3b 20 20 | 7b 20 54 68 65 73 65 20 |$0DAF; |{ These |
|00000a10| 77 6f 72 6b 20 69 6e 20 | 33 32 30 20 6d 6f 64 65 |work in |320 mode|
|00000a20| 20 7d 0d 72 65 64 36 34 | 30 20 3d 20 24 30 46 30 | }.red64|0 = $0F0|
|00000a30| 30 3b 20 20 7b 20 54 68 | 65 73 65 20 77 6f 72 6b |0; { Th|ese work|
|00000a40| 20 69 6e 20 36 34 30 20 | 6d 6f 64 65 20 7d 0d 6f | in 640 |mode }.o|
|00000a50| 72 61 6e 67 65 33 32 30 | 20 3d 20 24 30 46 37 30 |range320| = $0F70|
|00000a60| 3b 20 20 7b 20 54 68 65 | 73 65 20 77 6f 72 6b 20 |; { The|se work |
|00000a70| 69 6e 20 33 32 30 20 6d | 6f 64 65 20 7d 0d 66 6c |in 320 m|ode }.fl|
|00000a80| 65 73 68 33 32 30 20 3d | 20 24 30 46 41 39 3b 20 |esh320 =| $0FA9; |
|00000a90| 20 7b 20 54 68 65 73 65 | 20 77 6f 72 6b 20 69 6e | { These| work in|
|00000aa0| 20 33 32 30 20 6d 6f 64 | 65 20 7d 0d 79 65 6c 6c | 320 mod|e }.yell|
|00000ab0| 6f 77 20 3d 20 24 30 46 | 46 30 3b 20 20 7b 20 54 |ow = $0F|F0; { T|
|00000ac0| 68 65 73 65 20 77 6f 72 | 6b 20 69 6e 20 33 32 30 |hese wor|k in 320|
|00000ad0| 20 61 6e 64 20 36 34 30 | 20 6d 6f 64 65 20 7d 0d | and 640| mode }.|
|00000ae0| 77 68 69 74 65 20 3d 20 | 24 30 46 46 46 3b 20 20 |white = |$0FFF; |
|00000af0| 7b 20 54 68 65 73 65 20 | 77 6f 72 6b 20 69 6e 20 |{ These |work in |
|00000b00| 33 32 30 20 61 6e 64 20 | 36 34 30 20 6d 6f 64 65 |320 and |640 mode|
|00000b10| 20 7d 0d 0d 7b 20 50 65 | 6e 4d 6f 64 65 20 44 61 | }..{ Pe|nMode Da|
|00000b20| 74 61 20 7d 0d 6d 6f 64 | 65 43 6f 70 79 20 3d 20 |ta }.mod|eCopy = |
|00000b30| 24 30 30 30 30 3b 0d 6d | 6f 64 65 4f 52 20 3d 20 |$0000;.m|odeOR = |
|00000b40| 24 30 30 30 31 3b 0d 6d | 6f 64 65 58 4f 52 20 3d |$0001;.m|odeXOR =|
|00000b50| 20 24 30 30 30 32 3b 0d | 6d 6f 64 65 42 49 43 20 | $0002;.|modeBIC |
|00000b60| 3d 20 24 30 30 30 33 3b | 0d 6d 6f 64 65 46 6f 72 |= $0003;|.modeFor|
|00000b70| 65 43 6f 70 79 20 3d 20 | 24 30 30 30 34 3b 0d 6d |eCopy = |$0004;.m|
|00000b80| 6f 64 65 46 6f 72 65 4f | 52 20 3d 20 24 30 30 30 |odeForeO|R = $000|
|00000b90| 35 3b 0d 6d 6f 64 65 46 | 6f 72 65 58 4f 52 20 3d |5;.modeF|oreXOR =|
|00000ba0| 20 24 30 30 30 36 3b 0d | 6d 6f 64 65 46 6f 72 65 | $0006;.|modeFore|
|00000bb0| 42 49 43 20 3d 20 24 30 | 30 30 37 3b 0d 6d 6f 64 |BIC = $0|007;.mod|
|00000bc0| 65 4e 4f 54 20 3d 20 24 | 38 30 30 30 3b 0d 6e 6f |eNOT = $|8000;.no|
|00000bd0| 74 43 6f 70 79 20 3d 20 | 24 38 30 30 30 3b 0d 6e |tCopy = |$8000;.n|
|00000be0| 6f 74 4f 52 20 3d 20 24 | 38 30 30 31 3b 0d 6e 6f |otOR = $|8001;.no|
|00000bf0| 74 58 4f 52 20 3d 20 24 | 38 30 30 32 3b 0d 6e 6f |tXOR = $|8002;.no|
|00000c00| 74 42 49 43 20 3d 20 24 | 38 30 30 33 3b 0d 6e 6f |tBIC = $|8003;.no|
|00000c10| 74 46 6f 72 65 43 4f 50 | 59 20 3d 20 24 38 30 30 |tForeCOP|Y = $800|
|00000c20| 34 3b 0d 6e 6f 74 46 6f | 72 65 4f 52 20 3d 20 24 |4;.notFo|reOR = $|
|00000c30| 38 30 30 35 3b 0d 6e 6f | 74 46 6f 72 65 58 4f 52 |8005;.no|tForeXOR|
|00000c40| 20 3d 20 24 38 30 30 36 | 3b 0d 6e 6f 74 46 6f 72 | = $8006|;.notFor|
|00000c50| 65 42 49 43 20 3d 20 24 | 38 30 30 37 3b 0d 0d 7b |eBIC = $|8007;..{|
|00000c60| 20 51 44 53 74 61 72 74 | 75 70 20 7d 0d 6d 6f 64 | QDStart|up }.mod|
|00000c70| 65 33 32 30 20 3d 20 24 | 30 30 30 30 3b 20 20 7b |e320 = $|0000; {|
|00000c80| 20 41 72 67 75 6d 65 6e | 74 20 74 6f 20 51 44 53 | Argumen|t to QDS|
|00000c90| 74 61 72 74 75 70 20 7d | 0d 6d 6f 64 65 36 34 30 |tartup }|.mode640|
|00000ca0| 20 3d 20 24 30 30 38 30 | 3b 20 20 7b 20 41 72 67 | = $0080|; { Arg|
|00000cb0| 75 6d 65 6e 74 20 74 6f | 20 51 44 53 74 61 72 74 |ument to| QDStart|
|00000cc0| 75 70 20 7d 0d 0d 7b 20 | 54 65 78 74 53 74 79 6c |up }..{ |TextStyl|
|00000cd0| 65 20 7d 0d 70 6c 61 69 | 6e 4d 61 73 6b 20 3d 20 |e }.plai|nMask = |
|00000ce0| 24 30 30 30 30 3b 20 20 | 7b 20 4d 61 73 6b 20 66 |$0000; |{ Mask f|
|00000cf0| 6f 72 20 70 6c 61 69 6e | 20 74 65 78 74 20 62 69 |or plain| text bi|
|00000d00| 74 20 7d 0d 62 6f 6c 64 | 4d 61 73 6b 20 3d 20 24 |t }.bold|Mask = $|
|00000d10| 30 30 30 31 3b 20 20 7b | 20 4d 61 73 6b 20 66 6f |0001; {| Mask fo|
|00000d20| 72 20 62 6f 6c 64 20 62 | 69 74 20 7d 0d 69 74 61 |r bold b|it }.ita|
|00000d30| 6c 69 63 4d 61 73 6b 20 | 3d 20 24 30 30 30 32 3b |licMask |= $0002;|
|00000d40| 20 20 7b 20 4d 61 73 6b | 20 66 6f 72 20 69 74 61 | { Mask| for ita|
|00000d50| 6c 69 63 20 62 69 74 20 | 7d 0d 75 6e 64 65 72 6c |lic bit |}.underl|
|00000d60| 69 6e 65 4d 61 73 6b 20 | 3d 20 24 30 30 30 34 3b |ineMask |= $0004;|
|00000d70| 20 20 7b 20 4d 61 73 6b | 20 66 6f 72 20 75 6e 64 | { Mask| for und|
|00000d80| 65 72 6c 69 6e 65 20 62 | 69 74 20 7d 0d 6f 75 74 |erline b|it }.out|
|00000d90| 6c 69 6e 65 4d 61 73 6b | 20 3d 20 24 30 30 30 38 |lineMask| = $0008|
|00000da0| 3b 20 20 7b 20 4d 61 73 | 6b 20 66 6f 72 20 6f 75 |; { Mas|k for ou|
|00000db0| 74 6c 69 6e 65 20 62 69 | 74 20 7d 0d 73 68 61 64 |tline bi|t }.shad|
|00000dc0| 6f 77 4d 61 73 6b 20 3d | 20 24 30 30 31 30 3b 20 |owMask =| $0010; |
|00000dd0| 20 7b 20 4d 61 73 6b 20 | 66 6f 72 20 73 68 61 64 | { Mask |for shad|
|00000de0| 6f 77 20 62 69 74 20 7d | 0d 66 55 73 65 53 68 61 |ow bit }|.fUseSha|
|00000df0| 64 6f 77 69 6e 67 20 3d | 20 24 38 30 30 30 3b 20 |dowing =| $8000; |
|00000e00| 7b 20 63 6f 72 72 65 63 | 74 65 64 20 32 36 2d 4d |{ correc|ted 26-M|
|00000e10| 61 79 2d 39 32 20 44 41 | 4c 20 7d 0d 66 46 61 73 |ay-92 DA|L }.fFas|
|00000e20| 74 50 6f 72 74 41 77 61 | 72 65 20 3d 20 24 34 30 |tPortAwa|re = $40|
|00000e30| 30 30 3b 0d 0d 54 59 50 | 45 0d 54 65 78 74 53 74 |00;..TYP|E.TextSt|
|00000e40| 79 6c 65 20 3d 20 49 6e | 74 65 67 65 72 20 3b 0d |yle = In|teger ;.|
|00000e50| 43 6f 6c 6f 72 56 61 6c | 75 65 20 3d 20 49 6e 74 |ColorVal|ue = Int|
|00000e60| 65 67 65 72 20 3b 0d 41 | 6e 53 43 42 42 79 74 65 |eger ;.A|nSCBByte|
|00000e70| 20 3d 20 42 79 74 65 20 | 3b 0d 50 61 74 74 65 72 | = Byte |;.Patter|
|00000e80| 6e 50 74 72 20 3d 20 5e | 50 61 74 74 65 72 6e 3b |nPtr = ^|Pattern;|
|00000e90| 0d 50 61 74 74 65 72 6e | 20 3d 20 50 41 43 4b 45 |.Pattern| = PACKE|
|00000ea0| 44 20 41 52 52 41 59 5b | 31 2e 2e 33 32 5d 20 6f |D ARRAY[|1..32] o|
|00000eb0| 66 20 42 79 74 65 20 3b | 0d 4d 61 73 6b 20 3d 20 |f Byte ;|.Mask = |
|00000ec0| 50 41 43 4b 45 44 20 41 | 52 52 41 59 5b 31 2e 2e |PACKED A|RRAY[1..|
|00000ed0| 38 5d 20 4f 46 20 42 79 | 74 65 3b 0d 43 75 72 73 |8] OF By|te;.Curs|
|00000ee0| 6f 72 48 6e 64 6c 20 3d | 20 5e 43 75 72 73 6f 72 |orHndl =| ^Cursor|
|00000ef0| 50 74 72 3b 0d 43 75 72 | 73 6f 72 50 74 72 20 3d |Ptr;.Cur|sorPtr =|
|00000f00| 20 5e 43 75 72 73 6f 72 | 3b 0d 43 75 72 73 6f 72 | ^Cursor|;.Cursor|
|00000f10| 20 3d 20 52 45 43 4f 52 | 44 0d 20 20 20 20 63 75 | = RECOR|D. cu|
|00000f20| 72 73 6f 72 48 65 69 67 | 68 74 20 3a 20 49 6e 74 |rsorHeig|ht : Int|
|00000f30| 65 67 65 72 3b 20 7b 20 | 73 69 7a 65 20 69 6e 20 |eger; { |size in |
|00000f40| 62 79 74 65 73 20 7d 0d | 20 20 20 20 63 75 72 73 |bytes }.| curs|
|00000f50| 6f 72 57 69 64 74 68 20 | 3a 20 49 6e 74 65 67 65 |orWidth |: Intege|
|00000f60| 72 3b 20 7b 20 65 6e 63 | 6c 6f 73 69 6e 67 20 72 |r; { enc|losing r|
|00000f70| 65 63 74 61 6e 67 6c 65 | 20 7d 0d 20 20 20 20 63 |ectangle| }. c|
|00000f80| 75 72 73 6f 72 44 61 74 | 61 20 3a 20 41 52 52 41 |ursorDat|a : ARRA|
|00000f90| 59 5b 31 2e 2e 31 2c 31 | 2e 2e 31 5d 20 4f 46 20 |Y[1..1,1|..1] OF |
|00000fa0| 49 6e 74 65 67 65 72 3b | 0d 20 20 20 20 63 75 72 |Integer;|. cur|
|00000fb0| 73 6f 72 4d 61 73 6b 20 | 3a 20 41 52 52 41 59 5b |sorMask |: ARRAY[|
|00000fc0| 31 2e 2e 31 2c 31 2e 2e | 31 5d 20 4f 46 20 49 6e |1..1,1..|1] OF In|
|00000fd0| 74 65 67 65 72 3b 0d 20 | 20 20 20 63 75 72 73 6f |teger;. | curso|
|00000fe0| 72 48 6f 74 53 70 6f 74 | 20 3a 20 50 6f 69 6e 74 |rHotSpot| : Point|
|00000ff0| 3b 0d 45 4e 44 3b 0d 52 | 65 67 69 6f 6e 48 6e 64 |;.END;.R|egionHnd|
|00001000| 6c 20 3d 20 5e 52 65 67 | 69 6f 6e 50 74 72 3b 0d |l = ^Reg|ionPtr;.|
|00001010| 52 65 67 69 6f 6e 50 74 | 72 20 3d 20 5e 52 65 67 |RegionPt|r = ^Reg|
|00001020| 69 6f 6e 3b 0d 52 65 67 | 69 6f 6e 20 3d 20 52 45 |ion;.Reg|ion = RE|
|00001030| 43 4f 52 44 0d 20 20 20 | 20 72 67 6e 53 69 7a 65 |CORD. | rgnSize|
|00001040| 20 3a 20 49 6e 74 65 67 | 65 72 3b 20 7b 20 73 69 | : Integ|er; { si|
|00001050| 7a 65 20 69 6e 20 62 79 | 74 65 73 20 7d 0d 20 20 |ze in by|tes }. |
|00001060| 20 20 72 67 6e 42 42 6f | 78 20 3a 20 52 65 63 74 | rgnBBo|x : Rect|
|00001070| 3b 20 7b 20 65 6e 63 6c | 6f 73 69 6e 67 20 72 65 |; { encl|osing re|
|00001080| 63 74 61 6e 67 6c 65 20 | 7d 0d 45 4e 44 3b 0d 42 |ctangle |}.END;.B|
|00001090| 75 66 44 69 6d 52 65 63 | 48 6e 64 6c 20 3d 20 5e |ufDimRec|Hndl = ^|
|000010a0| 42 75 66 44 69 6d 52 65 | 63 50 74 72 3b 0d 42 75 |BufDimRe|cPtr;.Bu|
|000010b0| 66 44 69 6d 52 65 63 50 | 74 72 20 3d 20 5e 42 75 |fDimRecP|tr = ^Bu|
|000010c0| 66 44 69 6d 52 65 63 3b | 0d 42 75 66 44 69 6d 52 |fDimRec;|.BufDimR|
|000010d0| 65 63 20 3d 20 52 45 43 | 4f 52 44 0d 20 20 20 20 |ec = REC|ORD. |
|000010e0| 6d 61 78 57 69 64 74 68 | 20 3a 20 49 6e 74 65 67 |maxWidth| : Integ|
|000010f0| 65 72 3b 0d 20 20 20 20 | 74 65 78 74 42 75 66 48 |er;. |textBufH|
|00001100| 65 69 67 68 74 20 3a 20 | 49 6e 74 65 67 65 72 3b |eight : |Integer;|
|00001110| 0d 20 20 20 20 74 65 78 | 74 42 75 66 66 65 72 57 |. tex|tBufferW|
|00001120| 6f 72 64 73 20 3a 20 49 | 6e 74 65 67 65 72 3b 0d |ords : I|nteger;.|
|00001130| 20 20 20 20 66 6f 6e 74 | 57 69 64 74 68 20 3a 20 | font|Width : |
|00001140| 49 6e 74 65 67 65 72 3b | 0d 45 4e 44 3b 0d 46 6f |Integer;|.END;.Fo|
|00001150| 6e 74 48 6e 64 6c 20 3d | 20 5e 46 6f 6e 74 50 74 |ntHndl =| ^FontPt|
|00001160| 72 3b 0d 46 6f 6e 74 50 | 74 72 20 3d 20 5e 46 6f |r;.FontP|tr = ^Fo|
|00001170| 6e 74 3b 0d 46 6f 6e 74 | 20 3d 20 52 45 43 4f 52 |nt;.Font| = RECOR|
|00001180| 44 0d 20 20 20 20 6f 66 | 66 73 65 54 6f 4d 46 20 |D. of|fseToMF |
|00001190| 3a 20 49 6e 74 65 67 65 | 72 3b 20 7b 20 66 75 6c |: Intege|r; { ful|
|000011a0| 6c 79 20 64 65 66 69 6e | 65 64 20 66 72 6f 6e 74 |ly defin|ed front|
|000011b0| 20 6f 66 20 74 68 65 20 | 46 6f 6e 74 20 72 65 63 | of the |Font rec|
|000011c0| 6f 72 64 2e 20 7d 0d 20 | 20 20 20 66 61 6d 69 6c |ord. }. | famil|
|000011d0| 79 20 3a 20 49 6e 74 65 | 67 65 72 3b 0d 20 20 20 |y : Inte|ger;. |
|000011e0| 20 73 74 79 6c 65 20 3a | 20 54 65 78 74 53 74 79 | style :| TextSty|
|000011f0| 6c 65 3b 0d 20 20 20 20 | 73 69 7a 65 20 3a 20 49 |le;. |size : I|
|00001200| 6e 74 65 67 65 72 3b 0d | 20 20 20 20 76 65 72 73 |nteger;.| vers|
|00001210| 69 6f 6e 20 3a 20 49 6e | 74 65 67 65 72 3b 0d 20 |ion : In|teger;. |
|00001220| 20 20 20 66 62 72 45 78 | 74 65 6e 74 20 3a 20 49 | fbrEx|tent : I|
|00001230| 6e 74 65 67 65 72 3b 0d | 20 20 20 20 68 69 67 68 |nteger;.| high|
|00001240| 6f 77 54 4c 6f 63 20 3a | 20 49 6e 74 65 67 65 72 |owTLoc :| Integer|
|00001250| 3b 0d 45 4e 44 3b 0d 46 | 6f 6e 74 47 6c 6f 62 61 |;.END;.F|ontGloba|
|00001260| 6c 73 52 65 63 48 6e 64 | 6c 20 3d 20 5e 46 6f 6e |lsRecHnd|l = ^Fon|
|00001270| 74 47 6c 6f 62 61 6c 73 | 52 65 63 50 74 72 3b 0d |tGlobals|RecPtr;.|
|00001280| 46 6f 6e 74 47 6c 6f 62 | 61 6c 73 52 65 63 50 74 |FontGlob|alsRecPt|
|00001290| 72 20 3d 20 5e 46 6f 6e | 74 47 6c 6f 62 61 6c 73 |r = ^Fon|tGlobals|
|000012a0| 52 65 63 6f 72 64 3b 0d | 46 6f 6e 74 47 6c 6f 62 |Record;.|FontGlob|
|000012b0| 61 6c 73 52 65 63 6f 72 | 64 20 3d 20 52 45 43 4f |alsRecor|d = RECO|
|000012c0| 52 44 0d 20 20 20 20 66 | 67 46 6f 6e 74 49 44 20 |RD. f|gFontID |
|000012d0| 3a 20 49 6e 74 65 67 65 | 72 3b 20 7b 20 63 75 72 |: Intege|r; { cur|
|000012e0| 72 65 6e 74 6c 79 20 31 | 32 20 62 79 74 65 73 20 |rently 1|2 bytes |
|000012f0| 6c 6f 6e 67 2c 20 62 75 | 74 20 6d 61 79 20 62 65 |long, bu|t may be|
|00001300| 20 65 78 70 61 6e 64 65 | 64 20 7d 0d 20 20 20 20 | expande|d }. |
|00001310| 66 67 53 74 79 6c 65 20 | 3a 20 54 65 78 74 53 74 |fgStyle |: TextSt|
|00001320| 79 6c 65 3b 0d 20 20 20 | 20 66 67 53 69 7a 65 20 |yle;. | fgSize |
|00001330| 3a 20 49 6e 74 65 67 65 | 72 3b 0d 20 20 20 20 66 |: Intege|r;. f|
|00001340| 67 56 65 72 73 69 6f 6e | 20 3a 20 49 6e 74 65 67 |gVersion| : Integ|
|00001350| 65 72 3b 0d 20 20 20 20 | 66 67 57 69 64 4d 61 78 |er;. |fgWidMax|
|00001360| 20 3a 20 49 6e 74 65 67 | 65 72 3b 0d 20 20 20 20 | : Integ|er;. |
|00001370| 66 67 46 42 52 45 78 74 | 65 6e 74 20 3a 20 49 6e |fgFBRExt|ent : In|
|00001380| 74 65 67 65 72 3b 0d 45 | 4e 44 3b 0d 46 6f 6e 74 |teger;.E|ND;.Font|
|00001390| 49 44 48 6e 64 6c 20 3d | 20 5e 46 6f 6e 74 49 44 |IDHndl =| ^FontID|
|000013a0| 50 74 72 3b 0d 46 6f 6e | 74 49 44 50 74 72 20 3d |Ptr;.Fon|tIDPtr =|
|000013b0| 20 5e 46 6f 6e 74 49 44 | 3b 0d 46 6f 6e 74 49 44 | ^FontID|;.FontID|
|000013c0| 20 3d 20 50 41 43 4b 45 | 44 20 52 45 43 4f 52 44 | = PACKE|D RECORD|
|000013d0| 0d 20 20 43 41 53 45 20 | 49 6e 74 65 67 65 72 20 |. CASE |Integer |
|000013e0| 4f 46 0d 20 20 20 20 30 | 3a 0d 20 20 20 20 20 20 |OF. 0|:. |
|000013f0| 28 20 20 66 61 6d 4e 75 | 6d 20 3a 20 49 6e 74 65 |( famNu|m : Inte|
|00001400| 67 65 72 3b 0d 20 20 20 | 20 20 20 20 20 20 66 6f |ger;. | fo|
|00001410| 6e 74 53 74 79 6c 65 20 | 3a 20 42 79 74 65 3b 0d |ntStyle |: Byte;.|
|00001420| 20 20 20 20 20 20 20 20 | 20 66 6f 6e 74 53 69 7a | | fontSiz|
|00001430| 65 20 3a 20 42 79 74 65 | 3b 0d 20 20 20 20 20 20 |e : Byte|;. |
|00001440| 29 3b 0d 20 20 20 20 31 | 3a 0d 20 20 20 20 20 20 |);. 1|:. |
|00001450| 28 66 69 64 4c 6f 6e 67 | 20 3a 20 4c 6f 6e 67 69 |(fidLong| : Longi|
|00001460| 6e 74 29 3b 0d 20 20 45 | 4e 44 3b 0d 0d 46 6f 6e |nt);. E|ND;..Fon|
|00001470| 74 49 6e 66 6f 52 65 63 | 48 6e 64 6c 20 3d 20 5e |tInfoRec|Hndl = ^|
|00001480| 46 6f 6e 74 49 6e 66 6f | 52 65 63 50 74 72 3b 0d |FontInfo|RecPtr;.|
|00001490| 46 6f 6e 74 49 6e 66 6f | 52 65 63 50 74 72 20 3d |FontInfo|RecPtr =|
|000014a0| 20 5e 46 6f 6e 74 49 6e | 66 6f 52 65 63 6f 72 64 | ^FontIn|foRecord|
|000014b0| 3b 0d 46 6f 6e 74 49 6e | 66 6f 52 65 63 6f 72 64 |;.FontIn|foRecord|
|000014c0| 20 3d 20 52 45 43 4f 52 | 44 0d 20 20 20 20 61 73 | = RECOR|D. as|
|000014d0| 63 65 6e 74 20 3a 20 49 | 6e 74 65 67 65 72 3b 0d |cent : I|nteger;.|
|000014e0| 20 20 20 20 64 65 73 63 | 65 6e 74 20 3a 20 49 6e | desc|ent : In|
|000014f0| 74 65 67 65 72 3b 0d 20 | 20 20 20 77 69 64 4d 61 |teger;. | widMa|
|00001500| 78 20 3a 20 49 6e 74 65 | 67 65 72 3b 0d 20 20 20 |x : Inte|ger;. |
|00001510| 20 6c 65 61 64 69 6e 67 | 20 3a 20 49 6e 74 65 67 | leading| : Integ|
|00001520| 65 72 3b 0d 45 4e 44 3b | 0d 4c 6f 63 49 6e 66 6f |er;.END;|.LocInfo|
|00001530| 48 6e 64 6c 20 3d 20 5e | 4c 6f 63 49 6e 66 6f 50 |Hndl = ^|LocInfoP|
|00001540| 74 72 3b 0d 4c 6f 63 49 | 6e 66 6f 50 74 72 20 3d |tr;.LocI|nfoPtr =|
|00001550| 20 5e 4c 6f 63 49 6e 66 | 6f 3b 0d 4c 6f 63 49 6e | ^LocInf|o;.LocIn|
|00001560| 66 6f 20 3d 20 52 45 43 | 4f 52 44 0d 20 20 20 20 |fo = REC|ORD. |
|00001570| 70 6f 72 74 53 43 42 20 | 3a 20 49 6e 74 65 67 65 |portSCB |: Intege|
|00001580| 72 3b 20 7b 20 53 43 42 | 42 79 74 65 20 69 6e 20 |r; { SCB|Byte in |
|00001590| 6c 6f 77 20 62 79 74 65 | 20 7d 0d 20 20 20 20 70 |low byte| }. p|
|000015a0| 74 72 54 6f 50 69 78 49 | 6d 61 67 65 20 3a 20 50 |trToPixI|mage : P|
|000015b0| 74 72 3b 20 7b 20 49 6d | 61 67 65 52 65 66 20 7d |tr; { Im|ageRef }|
|000015c0| 0d 20 20 20 20 77 69 64 | 74 68 20 3a 20 49 6e 74 |. wid|th : Int|
|000015d0| 65 67 65 72 3b 20 7b 20 | 57 69 64 74 68 20 7d 0d |eger; { |Width }.|
|000015e0| 20 20 20 20 62 6f 75 6e | 64 73 52 65 63 74 20 3a | boun|dsRect :|
|000015f0| 20 52 65 63 74 3b 20 7b | 20 42 6f 75 6e 64 73 52 | Rect; {| BoundsR|
|00001600| 65 63 74 20 7d 0d 45 4e | 44 3b 0d 51 44 50 72 6f |ect }.EN|D;.QDPro|
|00001610| 63 73 48 6e 64 6c 20 3d | 20 5e 51 44 50 72 6f 63 |csHndl =| ^QDProc|
|00001620| 73 50 74 72 3b 0d 51 44 | 50 72 6f 63 73 50 74 72 |sPtr;.QD|ProcsPtr|
|00001630| 20 3d 20 5e 51 44 50 72 | 6f 63 73 3b 0d 51 44 50 | = ^QDPr|ocs;.QDP|
|00001640| 72 6f 63 73 20 3d 20 52 | 45 43 4f 52 44 0d 20 20 |rocs = R|ECORD. |
|00001650| 20 20 73 74 64 54 65 78 | 74 20 3a 20 56 6f 69 64 | stdTex|t : Void|
|00001660| 50 72 6f 63 50 74 72 3b | 0d 20 20 20 20 73 74 64 |ProcPtr;|. std|
|00001670| 4c 69 6e 65 20 3a 20 56 | 6f 69 64 50 72 6f 63 50 |Line : V|oidProcP|
|00001680| 74 72 3b 0d 20 20 20 20 | 73 74 64 52 65 63 74 20 |tr;. |stdRect |
|00001690| 3a 20 56 6f 69 64 50 72 | 6f 63 50 74 72 3b 0d 20 |: VoidPr|ocPtr;. |
|000016a0| 20 20 20 73 74 64 52 52 | 65 63 74 20 3a 20 56 6f | stdRR|ect : Vo|
|000016b0| 69 64 50 72 6f 63 50 74 | 72 3b 0d 20 20 20 20 73 |idProcPt|r;. s|
|000016c0| 74 64 4f 76 61 6c 20 3a | 20 56 6f 69 64 50 72 6f |tdOval :| VoidPro|
|000016d0| 63 50 74 72 3b 0d 20 20 | 20 20 73 74 64 41 72 63 |cPtr;. | stdArc|
|000016e0| 20 3a 20 56 6f 69 64 50 | 72 6f 63 50 74 72 3b 0d | : VoidP|rocPtr;.|
|000016f0| 20 20 20 20 73 74 64 50 | 6f 6c 79 20 3a 20 56 6f | stdP|oly : Vo|
|00001700| 69 64 50 72 6f 63 50 74 | 72 3b 0d 20 20 20 20 73 |idProcPt|r;. s|
|00001710| 74 64 52 67 6e 20 3a 20 | 56 6f 69 64 50 72 6f 63 |tdRgn : |VoidProc|
|00001720| 50 74 72 3b 0d 20 20 20 | 20 73 74 64 50 69 78 65 |Ptr;. | stdPixe|
|00001730| 6c 73 20 3a 20 56 6f 69 | 64 50 72 6f 63 50 74 72 |ls : Voi|dProcPtr|
|00001740| 3b 0d 20 20 20 20 73 74 | 64 43 6f 6d 6d 65 6e 74 |;. st|dComment|
|00001750| 20 3a 20 56 6f 69 64 50 | 72 6f 63 50 74 72 3b 0d | : VoidP|rocPtr;.|
|00001760| 20 20 20 20 73 74 64 54 | 78 4d 65 61 73 20 3a 20 | stdT|xMeas : |
|00001770| 56 6f 69 64 50 72 6f 63 | 50 74 72 3b 0d 20 20 20 |VoidProc|Ptr;. |
|00001780| 20 73 74 64 54 78 42 6e | 64 73 20 3a 20 56 6f 69 | stdTxBn|ds : Voi|
|00001790| 64 50 72 6f 63 50 74 72 | 3b 0d 20 20 20 20 73 74 |dProcPtr|;. st|
|000017a0| 64 47 65 74 50 69 63 20 | 3a 20 56 6f 69 64 50 72 |dGetPic |: VoidPr|
|000017b0| 6f 63 50 74 72 3b 0d 20 | 20 20 20 73 74 64 50 75 |ocPtr;. | stdPu|
|000017c0| 74 50 69 63 20 3a 20 56 | 6f 69 64 50 72 6f 63 50 |tPic : V|oidProcP|
|000017d0| 74 72 3b 0d 45 4e 44 3b | 0d 47 72 61 66 50 6f 72 |tr;.END;|.GrafPor|
|000017e0| 74 48 6e 64 6c 20 3d 20 | 5e 47 72 61 66 50 6f 72 |tHndl = |^GrafPor|
|000017f0| 74 50 74 72 3b 0d 47 72 | 61 66 50 6f 72 74 50 74 |tPtr;.Gr|afPortPt|
|00001800| 72 20 3d 20 5e 47 72 61 | 66 50 6f 72 74 3b 0d 47 |r = ^Gra|fPort;.G|
|00001810| 72 61 66 50 6f 72 74 20 | 3d 20 52 45 43 4f 52 44 |rafPort |= RECORD|
|00001820| 0d 20 20 20 20 70 6f 72 | 74 49 6e 66 6f 20 3a 20 |. por|tInfo : |
|00001830| 4c 6f 63 49 6e 66 6f 3b | 0d 20 20 20 20 70 6f 72 |LocInfo;|. por|
|00001840| 74 52 65 63 74 20 3a 20 | 52 65 63 74 3b 20 7b 20 |tRect : |Rect; { |
|00001850| 50 6f 72 74 52 65 63 74 | 20 7d 0d 20 20 20 20 63 |PortRect| }. c|
|00001860| 6c 69 70 52 67 6e 20 3a | 20 52 65 67 69 6f 6e 48 |lipRgn :| RegionH|
|00001870| 6e 64 6c 3b 20 7b 20 43 | 6c 69 70 20 52 67 6e 2e |ndl; { C|lip Rgn.|
|00001880| 20 50 6f 69 6e 74 65 72 | 20 7d 0d 20 20 20 20 76 | Pointer| }. v|
|00001890| 69 73 52 67 6e 20 3a 20 | 52 65 67 69 6f 6e 48 6e |isRgn : |RegionHn|
|000018a0| 64 6c 3b 20 7b 20 56 69 | 73 2e 20 52 67 6e 2e 20 |dl; { Vi|s. Rgn. |
|000018b0| 50 6f 69 6e 74 65 72 20 | 7d 0d 20 20 20 20 62 6b |Pointer |}. bk|
|000018c0| 50 61 74 20 3a 20 50 61 | 74 74 65 72 6e 3b 20 7b |Pat : Pa|ttern; {|
|000018d0| 20 42 61 63 6b 47 72 6f | 75 6e 64 20 50 61 74 74 | BackGro|und Patt|
|000018e0| 65 72 6e 20 7d 0d 20 20 | 20 20 70 6e 4c 6f 63 20 |ern }. | pnLoc |
|000018f0| 3a 20 50 6f 69 6e 74 3b | 20 7b 20 50 65 6e 20 4c |: Point;| { Pen L|
|00001900| 6f 63 61 74 69 6f 6e 20 | 7d 0d 20 20 20 20 70 6e |ocation |}. pn|
|00001910| 53 69 7a 65 20 3a 20 50 | 6f 69 6e 74 3b 20 7b 20 |Size : P|oint; { |
|00001920| 50 65 6e 20 53 69 7a 65 | 20 7d 0d 20 20 20 20 70 |Pen Size| }. p|
|00001930| 6e 4d 6f 64 65 20 3a 20 | 49 6e 74 65 67 65 72 3b |nMode : |Integer;|
|00001940| 20 7b 20 50 65 6e 20 4d | 6f 64 65 20 7d 0d 20 20 | { Pen M|ode }. |
|00001950| 20 20 70 6e 50 61 74 20 | 3a 20 50 61 74 74 65 72 | pnPat |: Patter|
|00001960| 6e 3b 20 7b 20 50 65 6e | 20 50 61 74 74 65 72 6e |n; { Pen| Pattern|
|00001970| 20 7d 0d 20 20 20 20 70 | 6e 4d 61 73 6b 20 3a 20 | }. p|nMask : |
|00001980| 4d 61 73 6b 3b 20 7b 20 | 50 65 6e 20 4d 61 73 6b |Mask; { |Pen Mask|
|00001990| 20 7d 0d 20 20 20 20 70 | 6e 56 69 73 20 3a 20 49 | }. p|nVis : I|
|000019a0| 6e 74 65 67 65 72 3b 20 | 7b 20 50 65 6e 20 56 69 |nteger; |{ Pen Vi|
|000019b0| 73 61 62 6c 65 20 7d 0d | 20 20 20 20 66 6f 6e 74 |sable }.| font|
|000019c0| 48 61 6e 64 6c 65 20 3a | 20 46 6f 6e 74 48 6e 64 |Handle :| FontHnd|
|000019d0| 6c 3b 0d 20 20 20 20 66 | 6f 6e 74 49 44 20 3a 20 |l;. f|ontID : |
|000019e0| 46 6f 6e 74 49 44 3b 20 | 7b 20 46 6f 6e 74 20 49 |FontID; |{ Font I|
|000019f0| 44 20 7d 0d 20 20 20 20 | 66 6f 6e 74 46 6c 61 67 |D }. |fontFlag|
|00001a00| 73 20 3a 20 49 6e 74 65 | 67 65 72 3b 20 7b 20 46 |s : Inte|ger; { F|
|00001a10| 6f 6e 74 46 6c 61 67 73 | 20 7d 0d 20 20 20 20 74 |ontFlags| }. t|
|00001a20| 78 53 69 7a 65 20 3a 20 | 49 6e 74 65 67 65 72 3b |xSize : |Integer;|
|00001a30| 20 7b 20 54 65 78 74 20 | 53 69 7a 65 20 7d 0d 20 | { Text |Size }. |
|00001a40| 20 20 20 74 78 46 61 63 | 65 20 3a 20 54 65 78 74 | txFac|e : Text|
|00001a50| 53 74 79 6c 65 3b 20 7b | 20 54 65 78 74 20 46 61 |Style; {| Text Fa|
|00001a60| 63 65 20 7d 0d 20 20 20 | 20 74 78 4d 6f 64 65 20 |ce }. | txMode |
|00001a70| 3a 20 49 6e 74 65 67 65 | 72 3b 20 7b 20 54 65 78 |: Intege|r; { Tex|
|00001a80| 74 20 4d 6f 64 65 20 7d | 0d 20 20 20 20 73 70 45 |t Mode }|. spE|
|00001a90| 78 74 72 61 20 3a 20 46 | 69 78 65 64 3b 20 7b 20 |xtra : F|ixed; { |
|00001aa0| 46 69 78 65 64 20 50 6f | 69 6e 74 20 56 61 6c 75 |Fixed Po|int Valu|
|00001ab0| 65 20 7d 0d 20 20 20 20 | 63 68 45 78 74 72 61 20 |e }. |chExtra |
|00001ac0| 3a 20 46 69 78 65 64 3b | 20 7b 20 46 69 78 65 64 |: Fixed;| { Fixed|
|00001ad0| 20 50 6f 69 6e 74 20 56 | 61 6c 75 65 20 7d 0d 20 | Point V|alue }. |
|00001ae0| 20 20 20 66 67 43 6f 6c | 6f 72 20 3a 20 49 6e 74 | fgCol|or : Int|
|00001af0| 65 67 65 72 3b 20 7b 20 | 46 6f 72 65 47 72 6f 75 |eger; { |ForeGrou|
|00001b00| 6e 64 20 43 6f 6c 6f 72 | 20 7d 0d 20 20 20 20 62 |nd Color| }. b|
|00001b10| 67 43 6f 6c 6f 72 20 3a | 20 49 6e 74 65 67 65 72 |gColor :| Integer|
|00001b20| 3b 20 7b 20 42 61 63 6b | 47 72 6f 75 6e 64 20 43 |; { Back|Ground C|
|00001b30| 6f 6c 6f 72 20 7d 0d 20 | 20 20 20 70 69 63 53 61 |olor }. | picSa|
|00001b40| 76 65 20 3a 20 48 61 6e | 64 6c 65 3b 20 7b 20 50 |ve : Han|dle; { P|
|00001b50| 69 63 53 61 76 65 20 7d | 0d 20 20 20 20 72 67 6e |icSave }|. rgn|
|00001b60| 53 61 76 65 20 3a 20 48 | 61 6e 64 6c 65 3b 20 7b |Save : H|andle; {|
|00001b70| 20 52 67 6e 53 61 76 65 | 20 7d 0d 20 20 20 20 70 | RgnSave| }. p|
|00001b80| 6f 6c 79 53 61 76 65 20 | 3a 20 48 61 6e 64 6c 65 |olySave |: Handle|
|00001b90| 3b 20 7b 20 50 6f 6c 79 | 53 61 76 65 20 7d 0d 20 |; { Poly|Save }. |
|00001ba0| 20 20 20 67 72 61 66 50 | 72 6f 63 73 20 3a 20 51 | grafP|rocs : Q|
|00001bb0| 44 50 72 6f 63 73 50 74 | 72 3b 0d 20 20 20 20 61 |DProcsPt|r;. a|
|00001bc0| 72 63 52 6f 74 20 3a 20 | 49 6e 74 65 67 65 72 3b |rcRot : |Integer;|
|00001bd0| 20 7b 20 41 72 63 52 6f | 74 20 7d 0d 20 20 20 20 | { ArcRo|t }. |
|00001be0| 75 73 65 72 46 69 65 6c | 64 20 3a 20 4c 6f 6e 67 |userFiel|d : Long|
|00001bf0| 69 6e 74 3b 20 7b 20 55 | 73 65 72 46 69 65 6c 64 |int; { U|serField|
|00001c00| 20 7d 0d 20 20 20 20 73 | 79 73 46 69 65 6c 64 20 | }. s|ysField |
|00001c10| 3a 20 4c 6f 6e 67 69 6e | 74 3b 20 7b 20 53 79 73 |: Longin|t; { Sys|
|00001c20| 46 69 65 6c 64 20 7d 0d | 45 4e 44 3b 0d 50 61 69 |Field }.|END;.Pai|
|00001c30| 6e 74 50 61 72 61 6d 48 | 6e 64 6c 20 3d 20 5e 50 |ntParamH|ndl = ^P|
|00001c40| 61 69 6e 74 50 61 72 61 | 6d 50 74 72 3b 0d 50 61 |aintPara|mPtr;.Pa|
|00001c50| 69 6e 74 50 61 72 61 6d | 50 74 72 20 3d 20 5e 50 |intParam|Ptr = ^P|
|00001c60| 61 69 6e 74 50 61 72 61 | 6d 3b 0d 50 61 69 6e 74 |aintPara|m;.Paint|
|00001c70| 50 61 72 61 6d 20 3d 20 | 52 45 43 4f 52 44 0d 20 |Param = |RECORD. |
|00001c80| 20 20 20 70 74 72 54 6f | 53 6f 75 72 63 65 4c 6f | ptrTo|SourceLo|
|00001c90| 63 49 6e 66 6f 20 3a 20 | 4c 6f 63 49 6e 66 6f 50 |cInfo : |LocInfoP|
|00001ca0| 74 72 3b 0d 20 20 20 20 | 70 74 72 54 6f 44 65 73 |tr;. |ptrToDes|
|00001cb0| 74 4c 6f 63 49 6e 66 6f | 20 3a 20 4c 6f 63 49 6e |tLocInfo| : LocIn|
|00001cc0| 66 6f 50 74 72 3b 0d 20 | 20 20 20 70 74 72 54 6f |foPtr;. | ptrTo|
|00001cd0| 53 6f 75 72 63 65 52 65 | 63 74 20 3a 20 52 65 63 |SourceRe|ct : Rec|
|00001ce0| 74 50 74 72 3b 0d 20 20 | 20 20 70 74 72 54 6f 44 |tPtr;. | ptrToD|
|00001cf0| 65 73 74 50 6f 69 6e 74 | 20 3a 20 50 6f 69 6e 74 |estPoint| : Point|
|00001d00| 50 74 72 3b 0d 20 20 20 | 20 6d 6f 64 65 20 3a 20 |Ptr;. | mode : |
|00001d10| 49 6e 74 65 67 65 72 3b | 0d 20 20 20 20 6d 61 73 |Integer;|. mas|
|00001d20| 6b 48 61 6e 64 6c 65 20 | 3a 20 48 61 6e 64 6c 65 |kHandle |: Handle|
|00001d30| 3b 20 7b 20 63 6c 69 70 | 20 72 65 67 69 6f 6e 20 |; { clip| region |
|00001d40| 7d 0d 45 4e 44 3b 0d 50 | 65 6e 53 74 61 74 65 48 |}.END;.P|enStateH|
|00001d50| 6e 64 6c 20 3d 20 5e 50 | 65 6e 53 74 61 74 65 50 |ndl = ^P|enStateP|
|00001d60| 74 72 3b 0d 50 65 6e 53 | 74 61 74 65 50 74 72 20 |tr;.PenS|tatePtr |
|00001d70| 3d 20 5e 50 65 6e 53 74 | 61 74 65 3b 0d 50 65 6e |= ^PenSt|ate;.Pen|
|00001d80| 53 74 61 74 65 20 3d 20 | 52 45 43 4f 52 44 0d 20 |State = |RECORD. |
|00001d90| 20 20 20 70 73 50 65 6e | 4c 6f 63 20 3a 20 50 6f | psPen|Loc : Po|
|00001da0| 69 6e 74 3b 0d 20 20 20 | 20 70 73 50 65 6e 53 69 |int;. | psPenSi|
|00001db0| 7a 65 20 3a 20 50 6f 69 | 6e 74 3b 0d 20 20 20 20 |ze : Poi|nt;. |
|00001dc0| 70 73 50 65 6e 4d 6f 64 | 65 20 3a 20 49 6e 74 65 |psPenMod|e : Inte|
|00001dd0| 67 65 72 3b 0d 20 20 20 | 20 70 73 50 65 6e 50 61 |ger;. | psPenPa|
|00001de0| 74 20 3a 20 50 61 74 74 | 65 72 6e 3b 0d 20 20 20 |t : Patt|ern;. |
|00001df0| 20 70 73 50 65 6e 4d 61 | 73 6b 20 3a 20 4d 61 73 | psPenMa|sk : Mas|
|00001e00| 6b 3b 0d 45 4e 44 3b 0d | 52 6f 6d 46 6f 6e 74 52 |k;.END;.|RomFontR|
|00001e10| 65 63 48 6e 64 6c 20 3d | 20 5e 52 6f 6d 46 6f 6e |ecHndl =| ^RomFon|
|00001e20| 74 52 65 63 50 74 72 3b | 0d 52 6f 6d 46 6f 6e 74 |tRecPtr;|.RomFont|
|00001e30| 52 65 63 50 74 72 20 3d | 20 5e 52 6f 6d 46 6f 6e |RecPtr =| ^RomFon|
|00001e40| 74 52 65 63 3b 0d 52 6f | 6d 46 6f 6e 74 52 65 63 |tRec;.Ro|mFontRec|
|00001e50| 20 3d 20 52 45 43 4f 52 | 44 0d 20 20 20 20 72 66 | = RECOR|D. rf|
|00001e60| 46 61 6d 4e 75 6d 20 3a | 20 49 6e 74 65 67 65 72 |FamNum :| Integer|
|00001e70| 3b 0d 20 20 20 20 72 66 | 46 61 6d 53 74 79 6c 65 |;. rf|FamStyle|
|00001e80| 20 3a 20 49 6e 74 65 67 | 65 72 3b 0d 20 20 20 20 | : Integ|er;. |
|00001e90| 72 66 53 69 7a 65 20 3a | 20 49 6e 74 65 67 65 72 |rfSize :| Integer|
|00001ea0| 3b 0d 20 20 20 20 72 66 | 46 6f 6e 74 48 61 6e 64 |;. rf|FontHand|
|00001eb0| 6c 65 20 3a 20 46 6f 6e | 74 48 6e 64 6c 3b 0d 20 |le : Fon|tHndl;. |
|00001ec0| 20 20 20 72 66 4e 61 6d | 65 50 74 72 20 3a 20 50 | rfNam|ePtr : P|
|00001ed0| 74 72 3b 0d 20 20 20 20 | 72 66 46 42 52 45 78 74 |tr;. |rfFBRExt|
|00001ee0| 65 6e 74 20 3a 20 49 6e | 74 65 67 65 72 3b 0d 45 |ent : In|teger;.E|
|00001ef0| 4e 44 3b 0d 43 6f 6c 6f | 72 54 61 62 6c 65 48 6e |ND;.Colo|rTableHn|
|00001f00| 64 6c 20 3d 20 5e 43 6f | 6c 6f 72 54 61 62 6c 65 |dl = ^Co|lorTable|
|00001f10| 50 74 72 3b 0d 43 6f 6c | 6f 72 54 61 62 6c 65 50 |Ptr;.Col|orTableP|
|00001f20| 74 72 20 3d 20 5e 43 6f | 6c 6f 72 54 61 62 6c 65 |tr = ^Co|lorTable|
|00001f30| 3b 0d 43 6f 6c 6f 72 54 | 61 62 6c 65 20 3d 20 41 |;.ColorT|able = A|
|00001f40| 52 52 41 59 20 5b 30 2e | 2e 31 35 5d 20 4f 46 20 |RRAY [0.|.15] OF |
|00001f50| 49 6e 74 65 67 65 72 20 | 3b 0d 50 52 4f 43 45 44 |Integer |;.PROCED|
|00001f60| 55 52 45 20 41 64 64 50 | 74 20 28 56 41 52 20 73 |URE AddP|t (VAR s|
|00001f70| 72 63 50 74 50 74 72 3a | 50 6f 69 6e 74 3b 56 41 |rcPtPtr:|Point;VA|
|00001f80| 52 20 64 65 73 74 50 74 | 50 74 72 3a 50 6f 69 6e |R destPt|Ptr:Poin|
|00001f90| 74 29 20 20 3b 0d 50 52 | 4f 43 45 44 55 52 45 20 |t) ;.PR|OCEDURE |
|00001fa0| 43 53 74 72 69 6e 67 42 | 6f 75 6e 64 73 20 28 20 |CStringB|ounds ( |
|00001fb0| 63 53 74 72 69 6e 67 50 | 74 72 3a 50 74 72 3b 56 |cStringP|tr:Ptr;V|
|00001fc0| 41 52 20 72 65 73 75 6c | 74 52 65 63 74 3a 52 65 |AR resul|tRect:Re|
|00001fd0| 63 74 29 20 20 3b 0d 46 | 55 4e 43 54 49 4f 4e 20 |ct) ;.F|UNCTION |
|00001fe0| 43 53 74 72 69 6e 67 57 | 69 64 74 68 20 28 20 63 |CStringW|idth ( c|
|00001ff0| 53 74 72 69 6e 67 50 74 | 72 3a 50 74 72 29 20 3a |StringPt|r:Ptr) :|
|00002000| 20 49 6e 74 65 67 65 72 | 20 3b 0d 50 52 4f 43 45 | Integer| ;.PROCE|
|00002010| 44 55 52 45 20 43 68 61 | 72 42 6f 75 6e 64 73 20 |DURE Cha|rBounds |
|00002020| 28 20 74 68 65 43 68 61 | 72 3a 43 48 41 52 3b 56 |( theCha|r:CHAR;V|
|00002030| 41 52 20 72 65 73 75 6c | 74 50 74 72 3a 52 65 63 |AR resul|tPtr:Rec|
|00002040| 74 29 20 20 3b 0d 46 55 | 4e 43 54 49 4f 4e 20 43 |t) ;.FU|NCTION C|
|00002050| 68 61 72 57 69 64 74 68 | 20 28 20 74 68 65 43 68 |harWidth| ( theCh|
|00002060| 61 72 3a 43 48 41 52 29 | 20 3a 20 49 6e 74 65 67 |ar:CHAR)| : Integ|
|00002070| 65 72 20 3b 0d 50 52 4f | 43 45 44 55 52 45 20 43 |er ;.PRO|CEDURE C|
|00002080| 6c 65 61 72 53 63 72 65 | 65 6e 20 28 20 63 6f 6c |learScre|en ( col|
|00002090| 6f 72 57 6f 72 64 3a 49 | 6e 74 65 67 65 72 29 20 |orWord:I|nteger) |
|000020a0| 20 3b 0d 50 52 4f 43 45 | 44 55 52 45 20 43 6c 69 | ;.PROCE|DURE Cli|
|000020b0| 70 52 65 63 74 20 28 20 | 72 65 63 74 50 74 72 3a |pRect ( |rectPtr:|
|000020c0| 52 65 63 74 29 20 20 3b | 0d 50 52 4f 43 45 44 55 |Rect) ;|.PROCEDU|
|000020d0| 52 45 20 43 6c 6f 73 65 | 50 6f 6c 79 20 20 20 3b |RE Close|Poly ;|
|000020e0| 0d 50 52 4f 43 45 44 55 | 52 45 20 43 6c 6f 73 65 |.PROCEDU|RE Close|
|000020f0| 50 6f 72 74 20 28 20 70 | 6f 72 74 50 74 72 3a 47 |Port ( p|ortPtr:G|
|00002100| 72 61 66 50 6f 72 74 50 | 74 72 29 20 20 3b 0d 50 |rafPortP|tr) ;.P|
|00002110| 52 4f 43 45 44 55 52 45 | 20 43 6c 6f 73 65 52 67 |ROCEDURE| CloseRg|
|00002120| 6e 20 28 20 61 52 67 6e | 48 61 6e 64 6c 65 3a 52 |n ( aRgn|Handle:R|
|00002130| 65 67 69 6f 6e 48 6e 64 | 6c 29 20 20 3b 0d 50 52 |egionHnd|l) ;.PR|
|00002140| 4f 43 45 44 55 52 45 20 | 43 6f 70 79 52 67 6e 20 |OCEDURE |CopyRgn |
|00002150| 28 20 73 72 63 52 67 6e | 48 61 6e 64 6c 65 3a 52 |( srcRgn|Handle:R|
|00002160| 65 67 69 6f 6e 48 6e 64 | 6c 3b 20 64 65 73 74 52 |egionHnd|l; destR|
|00002170| 67 6e 48 61 6e 64 6c 65 | 3a 52 65 67 69 6f 6e 48 |gnHandle|:RegionH|
|00002180| 6e 64 6c 29 20 20 3b 0d | 50 52 4f 43 45 44 55 52 |ndl) ;.|PROCEDUR|
|00002190| 45 20 44 69 66 66 52 67 | 6e 20 28 20 72 67 6e 31 |E DiffRg|n ( rgn1|
|000021a0| 48 61 6e 64 6c 65 3a 52 | 65 67 69 6f 6e 48 6e 64 |Handle:R|egionHnd|
|000021b0| 6c 3b 20 72 67 6e 32 48 | 61 6e 64 6c 65 3a 52 65 |l; rgn2H|andle:Re|
|000021c0| 67 69 6f 6e 48 6e 64 6c | 3b 20 64 69 66 66 52 67 |gionHndl|; diffRg|
|000021d0| 6e 48 61 6e 64 6c 65 3a | 52 65 67 69 6f 6e 48 6e |nHandle:|RegionHn|
|000021e0| 64 6c 29 20 20 3b 0d 50 | 52 4f 43 45 44 55 52 45 |dl) ;.P|ROCEDURE|
|000021f0| 20 44 69 73 70 6f 73 65 | 52 67 6e 20 28 20 61 52 | Dispose|Rgn ( aR|
|00002200| 67 6e 48 61 6e 64 6c 65 | 3a 52 65 67 69 6f 6e 48 |gnHandle|:RegionH|
|00002210| 6e 64 6c 29 20 20 3b 0d | 50 52 4f 43 45 44 55 52 |ndl) ;.|PROCEDUR|
|00002220| 45 20 44 72 61 77 43 53 | 74 72 69 6e 67 20 28 20 |E DrawCS|tring ( |
|00002230| 63 53 74 72 50 74 72 3a | 43 53 74 72 69 6e 67 50 |cStrPtr:|CStringP|
|00002240| 74 72 29 20 20 3b 0d 50 | 52 4f 43 45 44 55 52 45 |tr) ;.P|ROCEDURE|
|00002250| 20 44 72 61 77 43 68 61 | 72 20 28 20 74 68 65 43 | DrawCha|r ( theC|
|00002260| 68 61 72 3a 43 48 41 52 | 29 20 20 3b 0d 50 52 4f |har:CHAR|) ;.PRO|
|00002270| 43 45 44 55 52 45 20 44 | 72 61 77 53 74 72 69 6e |CEDURE D|rawStrin|
|00002280| 67 20 28 20 73 74 72 3a | 53 74 72 32 35 35 29 20 |g ( str:|Str255) |
|00002290| 20 3b 0d 50 52 4f 43 45 | 44 55 52 45 20 44 72 61 | ;.PROCE|DURE Dra|
|000022a0| 77 54 65 78 74 20 28 20 | 74 65 78 74 50 74 72 3a |wText ( |textPtr:|
|000022b0| 50 74 72 3b 20 74 65 78 | 74 4c 65 6e 67 74 68 3a |Ptr; tex|tLength:|
|000022c0| 49 6e 74 65 67 65 72 29 | 20 20 3b 0d 46 55 4e 43 |Integer)| ;.FUNC|
|000022d0| 54 49 4f 4e 20 20 45 6d | 70 74 79 52 67 6e 20 28 |TION Em|ptyRgn (|
|000022e0| 20 61 52 67 6e 48 61 6e | 64 6c 65 3a 52 65 67 69 | aRgnHan|dle:Regi|
|000022f0| 6f 6e 48 6e 64 6c 29 20 | 3a 20 42 6f 6f 6c 65 61 |onHndl) |: Boolea|
|00002300| 6e 20 3b 0d 46 55 4e 43 | 54 49 4f 4e 20 45 71 75 |n ;.FUNC|TION Equ|
|00002310| 61 6c 50 74 20 28 56 41 | 52 20 70 6f 69 6e 74 31 |alPt (VA|R point1|
|00002320| 50 74 72 3a 50 6f 69 6e | 74 3b 56 41 52 20 70 6f |Ptr:Poin|t;VAR po|
|00002330| 69 6e 74 32 50 74 72 3a | 50 6f 69 6e 74 29 20 3a |int2Ptr:|Point) :|
|00002340| 20 42 6f 6f 6c 65 61 6e | 20 3b 0d 46 55 4e 43 54 | Boolean| ;.FUNCT|
|00002350| 49 4f 4e 20 45 71 75 61 | 6c 52 65 63 74 20 28 20 |ION Equa|lRect ( |
|00002360| 72 65 63 74 31 50 74 72 | 3a 52 65 63 74 3b 20 72 |rect1Ptr|:Rect; r|
|00002370| 65 63 74 32 50 74 72 3a | 52 65 63 74 29 20 3a 20 |ect2Ptr:|Rect) : |
|00002380| 42 6f 6f 6c 65 61 6e 20 | 3b 0d 46 55 4e 43 54 49 |Boolean |;.FUNCTI|
|00002390| 4f 4e 20 20 45 71 75 61 | 6c 52 67 6e 20 28 20 72 |ON Equa|lRgn ( r|
|000023a0| 67 6e 31 48 61 6e 64 6c | 65 3a 52 65 67 69 6f 6e |gn1Handl|e:Region|
|000023b0| 48 6e 64 6c 3b 20 72 67 | 6e 32 48 61 6e 64 6c 65 |Hndl; rg|n2Handle|
|000023c0| 3a 52 65 67 69 6f 6e 48 | 6e 64 6c 29 20 3a 20 42 |:RegionH|ndl) : B|
|000023d0| 6f 6f 6c 65 61 6e 20 3b | 0d 50 52 4f 43 45 44 55 |oolean ;|.PROCEDU|
|000023e0| 52 45 20 45 72 61 73 65 | 41 72 63 20 28 20 72 65 |RE Erase|Arc ( re|
|000023f0| 63 74 50 74 72 3a 52 65 | 63 74 3b 20 73 74 61 72 |ctPtr:Re|ct; star|
|00002400| 74 41 6e 67 6c 65 3a 49 | 6e 74 65 67 65 72 3b 20 |tAngle:I|nteger; |
|00002410| 61 72 63 41 6e 67 6c 65 | 3a 49 6e 74 65 67 65 72 |arcAngle|:Integer|
|00002420| 29 20 20 3b 0d 50 52 4f | 43 45 44 55 52 45 20 45 |) ;.PRO|CEDURE E|
|00002430| 72 61 73 65 4f 76 61 6c | 20 28 20 72 65 63 74 50 |raseOval| ( rectP|
|00002440| 74 72 3a 52 65 63 74 29 | 20 20 3b 0d 50 52 4f 43 |tr:Rect)| ;.PROC|
|00002450| 45 44 55 52 45 20 45 72 | 61 73 65 50 6f 6c 79 20 |EDURE Er|asePoly |
|00002460| 28 20 70 6f 6c 79 48 61 | 6e 64 6c 65 3a 48 61 6e |( polyHa|ndle:Han|
|00002470| 64 6c 65 29 20 20 3b 0d | 50 52 4f 43 45 44 55 52 |dle) ;.|PROCEDUR|
|00002480| 45 20 45 72 61 73 65 52 | 52 65 63 74 20 28 20 72 |E EraseR|Rect ( r|
|00002490| 65 63 74 50 74 72 3a 52 | 65 63 74 3b 20 6f 76 61 |ectPtr:R|ect; ova|
|000024a0| 6c 57 69 64 74 68 3a 49 | 6e 74 65 67 65 72 3b 20 |lWidth:I|nteger; |
|000024b0| 6f 76 61 6c 48 65 69 67 | 68 74 3a 49 6e 74 65 67 |ovalHeig|ht:Integ|
|000024c0| 65 72 29 20 20 3b 0d 50 | 52 4f 43 45 44 55 52 45 |er) ;.P|ROCEDURE|
|000024d0| 20 45 72 61 73 65 52 65 | 63 74 20 28 20 72 65 63 | EraseRe|ct ( rec|
|000024e0| 74 50 74 72 3a 52 65 63 | 74 29 20 20 3b 0d 50 52 |tPtr:Rec|t) ;.PR|
|000024f0| 4f 43 45 44 55 52 45 20 | 45 72 61 73 65 52 67 6e |OCEDURE |EraseRgn|
|00002500| 20 28 20 61 52 67 6e 48 | 61 6e 64 6c 65 3a 52 65 | ( aRgnH|andle:Re|
|00002510| 67 69 6f 6e 48 6e 64 6c | 29 20 20 3b 0d 50 52 4f |gionHndl|) ;.PRO|
|00002520| 43 45 44 55 52 45 20 46 | 69 6c 6c 41 72 63 20 28 |CEDURE F|illArc (|
|00002530| 20 72 65 63 74 50 74 72 | 3a 52 65 63 74 3b 20 73 | rectPtr|:Rect; s|
|00002540| 74 61 72 74 41 6e 67 6c | 65 3a 49 6e 74 65 67 65 |tartAngl|e:Intege|
|00002550| 72 3b 20 61 72 63 41 6e | 67 6c 65 3a 49 6e 74 65 |r; arcAn|gle:Inte|
|00002560| 67 65 72 3b 20 70 61 74 | 74 65 72 6e 50 74 72 3a |ger; pat|ternPtr:|
|00002570| 50 61 74 74 65 72 6e 29 | 20 20 3b 0d 50 52 4f 43 |Pattern)| ;.PROC|
|00002580| 45 44 55 52 45 20 46 69 | 6c 6c 4f 76 61 6c 20 28 |EDURE Fi|llOval (|
|00002590| 20 72 65 63 74 50 74 72 | 3a 52 65 63 74 3b 20 70 | rectPtr|:Rect; p|
|000025a0| 61 74 74 65 72 6e 50 74 | 72 3a 50 61 74 74 65 72 |atternPt|r:Patter|
|000025b0| 6e 29 20 20 3b 0d 50 52 | 4f 43 45 44 55 52 45 20 |n) ;.PR|OCEDURE |
|000025c0| 46 69 6c 6c 50 6f 6c 79 | 20 28 20 70 6f 6c 79 48 |FillPoly| ( polyH|
|000025d0| 61 6e 64 6c 65 3a 48 61 | 6e 64 6c 65 3b 20 70 61 |andle:Ha|ndle; pa|
|000025e0| 74 74 65 72 6e 50 74 72 | 3a 50 61 74 74 65 72 6e |tternPtr|:Pattern|
|000025f0| 29 20 20 3b 0d 50 52 4f | 43 45 44 55 52 45 20 46 |) ;.PRO|CEDURE F|
|00002600| 69 6c 6c 52 52 65 63 74 | 20 28 20 72 65 63 74 50 |illRRect| ( rectP|
|00002610| 74 72 3a 52 65 63 74 3b | 20 6f 76 61 6c 57 69 64 |tr:Rect;| ovalWid|
|00002620| 74 68 3a 49 6e 74 65 67 | 65 72 3b 20 6f 76 61 6c |th:Integ|er; oval|
|00002630| 48 65 69 67 68 74 3a 49 | 6e 74 65 67 65 72 3b 20 |Height:I|nteger; |
|00002640| 70 61 74 74 65 72 6e 50 | 74 72 3a 50 61 74 74 65 |patternP|tr:Patte|
|00002650| 72 6e 29 20 20 3b 0d 50 | 52 4f 43 45 44 55 52 45 |rn) ;.P|ROCEDURE|
|00002660| 20 46 69 6c 6c 52 65 63 | 74 20 28 20 72 65 63 74 | FillRec|t ( rect|
|00002670| 50 74 72 3a 52 65 63 74 | 3b 20 70 61 74 74 65 72 |Ptr:Rect|; patter|
|00002680| 6e 50 74 72 3a 50 61 74 | 74 65 72 6e 29 20 20 3b |nPtr:Pat|tern) ;|
|00002690| 0d 50 52 4f 43 45 44 55 | 52 45 20 46 69 6c 6c 52 |.PROCEDU|RE FillR|
|000026a0| 67 6e 20 28 20 61 52 67 | 6e 48 61 6e 64 6c 65 3a |gn ( aRg|nHandle:|
|000026b0| 52 65 67 69 6f 6e 48 6e | 64 6c 3b 20 5f 5f 70 61 |RegionHn|dl; __pa|
|000026c0| 74 74 65 72 6e 50 74 72 | 3a 50 61 74 74 65 72 6e |tternPtr|:Pattern|
|000026d0| 29 20 20 3b 0d 50 52 4f | 43 45 44 55 52 45 20 46 |) ;.PRO|CEDURE F|
|000026e0| 6f 72 63 65 42 75 66 44 | 69 6d 73 20 28 20 6d 61 |orceBufD|ims ( ma|
|000026f0| 78 57 69 64 74 68 3a 49 | 6e 74 65 67 65 72 3b 20 |xWidth:I|nteger; |
|00002700| 6d 61 78 46 6f 6e 74 48 | 65 69 67 68 74 3a 49 6e |maxFontH|eight:In|
|00002710| 74 65 67 65 72 3b 20 6d | 61 78 46 42 52 45 78 74 |teger; m|axFBRExt|
|00002720| 65 6e 74 3a 49 6e 74 65 | 67 65 72 29 20 20 3b 0d |ent:Inte|ger) ;.|
|00002730| 50 52 4f 43 45 44 55 52 | 45 20 46 72 61 6d 65 41 |PROCEDUR|E FrameA|
|00002740| 72 63 20 28 20 72 65 63 | 74 50 74 72 3a 52 65 63 |rc ( rec|tPtr:Rec|
|00002750| 74 3b 20 73 74 61 72 74 | 41 6e 67 6c 65 3a 49 6e |t; start|Angle:In|
|00002760| 74 65 67 65 72 3b 20 61 | 72 63 41 6e 67 6c 65 3a |teger; a|rcAngle:|
|00002770| 49 6e 74 65 67 65 72 29 | 20 20 3b 0d 50 52 4f 43 |Integer)| ;.PROC|
|00002780| 45 44 55 52 45 20 46 72 | 61 6d 65 4f 76 61 6c 20 |EDURE Fr|ameOval |
|00002790| 28 20 72 65 63 74 50 74 | 72 3a 52 65 63 74 29 20 |( rectPt|r:Rect) |
|000027a0| 20 3b 0d 50 52 4f 43 45 | 44 55 52 45 20 46 72 61 | ;.PROCE|DURE Fra|
|000027b0| 6d 65 50 6f 6c 79 20 28 | 20 70 6f 6c 79 48 61 6e |mePoly (| polyHan|
|000027c0| 64 6c 65 3a 48 61 6e 64 | 6c 65 29 20 20 3b 0d 50 |dle:Hand|le) ;.P|
|000027d0| 52 4f 43 45 44 55 52 45 | 20 46 72 61 6d 65 52 52 |ROCEDURE| FrameRR|
|000027e0| 65 63 74 20 28 20 72 65 | 63 74 50 74 72 3a 52 65 |ect ( re|ctPtr:Re|
|000027f0| 63 74 3b 20 6f 76 61 6c | 57 69 64 74 68 3a 49 6e |ct; oval|Width:In|
|00002800| 74 65 67 65 72 3b 20 6f | 76 61 6c 48 65 69 67 68 |teger; o|valHeigh|
|00002810| 74 3a 49 6e 74 65 67 65 | 72 29 20 20 3b 0d 50 52 |t:Intege|r) ;.PR|
|00002820| 4f 43 45 44 55 52 45 20 | 46 72 61 6d 65 52 65 63 |OCEDURE |FrameRec|
|00002830| 74 20 28 20 72 65 63 74 | 50 74 72 3a 52 65 63 74 |t ( rect|Ptr:Rect|
|00002840| 29 20 20 3b 0d 50 52 4f | 43 45 44 55 52 45 20 46 |) ;.PRO|CEDURE F|
|00002850| 72 61 6d 65 52 67 6e 20 | 28 20 61 52 67 6e 48 61 |rameRgn |( aRgnHa|
|00002860| 6e 64 6c 65 3a 52 65 67 | 69 6f 6e 48 6e 64 6c 29 |ndle:Reg|ionHndl)|
|00002870| 20 20 3b 0d 46 55 4e 43 | 54 49 4f 4e 20 47 65 74 | ;.FUNC|TION Get|
|00002880| 41 64 64 72 65 73 73 20 | 28 20 74 61 62 6c 65 49 |Address |( tableI|
|00002890| 44 3a 49 6e 74 65 67 65 | 72 29 20 3a 20 50 74 72 |D:Intege|r) : Ptr|
|000028a0| 20 3b 0d 46 55 4e 43 54 | 49 4f 4e 20 47 65 74 41 | ;.FUNCT|ION GetA|
|000028b0| 72 63 52 6f 74 20 20 3a | 20 49 6e 74 65 67 65 72 |rcRot :| Integer|
|000028c0| 20 3b 0d 46 55 4e 43 54 | 49 4f 4e 20 47 65 74 42 | ;.FUNCT|ION GetB|
|000028d0| 61 63 6b 43 6f 6c 6f 72 | 20 20 3a 20 49 6e 74 65 |ackColor| : Inte|
|000028e0| 67 65 72 20 3b 0d 50 52 | 4f 43 45 44 55 52 45 20 |ger ;.PR|OCEDURE |
|000028f0| 47 65 74 42 61 63 6b 50 | 61 74 20 28 56 41 52 20 |GetBackP|at (VAR |
|00002900| 70 61 74 74 65 72 6e 50 | 74 72 3a 50 61 74 74 65 |patternP|tr:Patte|
|00002910| 72 6e 29 20 20 3b 0d 46 | 55 4e 43 54 49 4f 4e 20 |rn) ;.F|UNCTION |
|00002920| 47 65 74 43 68 61 72 45 | 78 74 72 61 20 20 3a 20 |GetCharE|xtra : |
|00002930| 46 69 78 65 64 20 3b 0d | 50 52 4f 43 45 44 55 52 |Fixed ;.|PROCEDUR|
|00002940| 45 20 47 65 74 43 6c 69 | 70 20 28 20 61 52 67 6e |E GetCli|p ( aRgn|
|00002950| 48 61 6e 64 6c 65 3a 52 | 65 67 69 6f 6e 48 6e 64 |Handle:R|egionHnd|
|00002960| 6c 29 20 20 3b 0d 46 55 | 4e 43 54 49 4f 4e 20 20 |l) ;.FU|NCTION |
|00002970| 47 65 74 43 6c 69 70 48 | 61 6e 64 6c 65 20 20 3a |GetClipH|andle :|
|00002980| 20 52 65 67 69 6f 6e 48 | 6e 64 6c 20 3b 0d 46 55 | RegionH|ndl ;.FU|
|00002990| 4e 43 54 49 4f 4e 20 47 | 65 74 43 6f 6c 6f 72 45 |NCTION G|etColorE|
|000029a0| 6e 74 72 79 20 28 20 74 | 61 62 6c 65 4e 75 6d 62 |ntry ( t|ableNumb|
|000029b0| 65 72 3a 49 6e 74 65 67 | 65 72 3b 20 65 6e 74 72 |er:Integ|er; entr|
|000029c0| 79 4e 75 6d 62 65 72 3a | 49 6e 74 65 67 65 72 29 |yNumber:|Integer)|
|000029d0| 20 3a 20 49 6e 74 65 67 | 65 72 20 3b 0d 50 52 4f | : Integ|er ;.PRO|
|000029e0| 43 45 44 55 52 45 20 47 | 65 74 43 6f 6c 6f 72 54 |CEDURE G|etColorT|
|000029f0| 61 62 6c 65 20 28 20 74 | 61 62 6c 65 4e 75 6d 62 |able ( t|ableNumb|
|00002a00| 65 72 3a 49 6e 74 65 67 | 65 72 3b 56 41 52 20 64 |er:Integ|er;VAR d|
|00002a10| 65 73 74 54 61 62 6c 65 | 50 74 72 3a 43 6f 6c 6f |estTable|Ptr:Colo|
|00002a20| 72 54 61 62 6c 65 29 20 | 20 3b 0d 46 55 4e 43 54 |rTable) | ;.FUNCT|
|00002a30| 49 4f 4e 20 47 65 74 43 | 75 72 73 6f 72 41 64 72 |ION GetC|ursorAdr|
|00002a40| 20 20 3a 20 43 75 72 73 | 6f 72 50 74 72 20 3b 0d | : Curs|orPtr ;.|
|00002a50| 46 55 4e 43 54 49 4f 4e | 20 47 65 74 46 47 53 69 |FUNCTION| GetFGSi|
|00002a60| 7a 65 20 20 3a 20 49 6e | 74 65 67 65 72 20 3b 0d |ze : In|teger ;.|
|00002a70| 46 55 4e 43 54 49 4f 4e | 20 47 65 74 46 6f 6e 74 |FUNCTION| GetFont|
|00002a80| 20 20 3a 20 46 6f 6e 74 | 48 6e 64 6c 20 3b 0d 46 | : Font|Hndl ;.F|
|00002a90| 55 4e 43 54 49 4f 4e 20 | 47 65 74 46 6f 6e 74 46 |UNCTION |GetFontF|
|00002aa0| 6c 61 67 73 20 20 3a 20 | 49 6e 74 65 67 65 72 20 |lags : |Integer |
|00002ab0| 3b 0d 50 52 4f 43 45 44 | 55 52 45 20 47 65 74 46 |;.PROCED|URE GetF|
|00002ac0| 6f 6e 74 47 6c 6f 62 61 | 6c 73 20 28 56 41 52 20 |ontGloba|ls (VAR |
|00002ad0| 66 67 52 65 63 50 74 72 | 3a 46 6f 6e 74 47 6c 6f |fgRecPtr|:FontGlo|
|00002ae0| 62 61 6c 73 52 65 63 6f | 72 64 29 20 20 3b 0d 46 |balsReco|rd) ;.F|
|00002af0| 55 4e 43 54 49 4f 4e 20 | 20 47 65 74 46 6f 6e 74 |UNCTION | GetFont|
|00002b00| 49 44 20 20 3a 20 46 6f | 6e 74 49 44 20 3b 0d 50 |ID : Fo|ntID ;.P|
|00002b10| 52 4f 43 45 44 55 52 45 | 20 47 65 74 46 6f 6e 74 |ROCEDURE| GetFont|
|00002b20| 49 6e 66 6f 20 28 56 41 | 52 20 66 6f 6e 74 49 6e |Info (VA|R fontIn|
|00002b30| 66 6f 52 65 63 50 74 72 | 3a 46 6f 6e 74 49 6e 66 |foRecPtr|:FontInf|
|00002b40| 6f 52 65 63 6f 72 64 29 | 20 20 3b 0d 46 55 4e 43 |oRecord)| ;.FUNC|
|00002b50| 54 49 4f 4e 20 47 65 74 | 46 6f 6e 74 4c 6f 72 65 |TION Get|FontLore|
|00002b60| 20 28 56 41 52 20 72 65 | 63 6f 72 64 50 74 72 3a | (VAR re|cordPtr:|
|00002b70| 46 6f 6e 74 47 6c 6f 62 | 61 6c 73 52 65 63 6f 72 |FontGlob|alsRecor|
|00002b80| 64 3b 20 72 65 63 6f 72 | 64 53 69 7a 65 3a 49 6e |d; recor|dSize:In|
|00002b90| 74 65 67 65 72 29 20 3a | 20 49 6e 74 65 67 65 72 |teger) :| Integer|
|00002ba0| 20 3b 0d 46 55 4e 43 54 | 49 4f 4e 20 47 65 74 46 | ;.FUNCT|ION GetF|
|00002bb0| 6f 72 65 43 6f 6c 6f 72 | 20 20 3a 20 49 6e 74 65 |oreColor| : Inte|
|00002bc0| 67 65 72 20 3b 0d 46 55 | 4e 43 54 49 4f 4e 20 47 |ger ;.FU|NCTION G|
|00002bd0| 65 74 47 72 61 66 50 72 | 6f 63 73 20 20 3a 20 51 |etGrafPr|ocs : Q|
|00002be0| 44 50 72 6f 63 73 50 74 | 72 20 3b 0d 46 55 4e 43 |DProcsPt|r ;.FUNC|
|00002bf0| 54 49 4f 4e 20 47 65 74 | 4d 61 73 74 65 72 53 43 |TION Get|MasterSC|
|00002c00| 42 20 20 3a 20 49 6e 74 | 65 67 65 72 20 3b 0d 50 |B : Int|eger ;.P|
|00002c10| 52 4f 43 45 44 55 52 45 | 20 47 65 74 50 65 6e 20 |ROCEDURE| GetPen |
|00002c20| 28 56 41 52 20 70 6f 69 | 6e 74 50 74 72 3a 50 6f |(VAR poi|ntPtr:Po|
|00002c30| 69 6e 74 29 20 20 3b 0d | 50 52 4f 43 45 44 55 52 |int) ;.|PROCEDUR|
|00002c40| 45 20 47 65 74 50 65 6e | 4d 61 73 6b 20 28 56 41 |E GetPen|Mask (VA|
|00002c50| 52 20 6d 61 73 6b 50 74 | 72 3a 4d 61 73 6b 29 20 |R maskPt|r:Mask) |
|00002c60| 20 3b 0d 46 55 4e 43 54 | 49 4f 4e 20 47 65 74 50 | ;.FUNCT|ION GetP|
|00002c70| 65 6e 4d 6f 64 65 20 20 | 3a 20 49 6e 74 65 67 65 |enMode |: Intege|
|00002c80| 72 20 3b 0d 50 52 4f 43 | 45 44 55 52 45 20 47 65 |r ;.PROC|EDURE Ge|
|00002c90| 74 50 65 6e 50 61 74 20 | 28 56 41 52 20 70 61 74 |tPenPat |(VAR pat|
|00002ca0| 74 65 72 6e 50 74 72 3a | 50 61 74 74 65 72 6e 29 |ternPtr:|Pattern)|
|00002cb0| 20 20 3b 0d 50 52 4f 43 | 45 44 55 52 45 20 47 65 | ;.PROC|EDURE Ge|
|00002cc0| 74 50 65 6e 53 69 7a 65 | 20 28 56 41 52 20 70 6f |tPenSize| (VAR po|
|00002cd0| 69 6e 74 50 74 72 3a 50 | 6f 69 6e 74 29 20 20 3b |intPtr:P|oint) ;|
|00002ce0| 0d 50 52 4f 43 45 44 55 | 52 45 20 47 65 74 50 65 |.PROCEDU|RE GetPe|
|00002cf0| 6e 53 74 61 74 65 20 28 | 56 41 52 20 61 50 65 6e |nState (|VAR aPen|
|00002d00| 53 74 61 74 65 50 74 72 | 3a 50 65 6e 53 74 61 74 |StatePtr|:PenStat|
|00002d10| 65 29 20 20 3b 0d 46 55 | 4e 43 54 49 4f 4e 20 47 |e) ;.FU|NCTION G|
|00002d20| 65 74 50 69 63 53 61 76 | 65 20 20 3a 20 4c 6f 6e |etPicSav|e : Lon|
|00002d30| 67 69 6e 74 20 3b 0d 46 | 55 4e 43 54 49 4f 4e 20 |gint ;.F|UNCTION |
|00002d40| 47 65 74 50 69 78 65 6c | 20 28 20 68 3a 49 6e 74 |GetPixel| ( h:Int|
|00002d50| 65 67 65 72 3b 20 76 3a | 49 6e 74 65 67 65 72 29 |eger; v:|Integer)|
|00002d60| 20 3a 20 49 6e 74 65 67 | 65 72 20 3b 0d 46 55 4e | : Integ|er ;.FUN|
|00002d70| 43 54 49 4f 4e 20 47 65 | 74 50 6f 6c 79 53 61 76 |CTION Ge|tPolySav|
|00002d80| 65 20 20 3a 20 4c 6f 6e | 67 69 6e 74 20 3b 0d 46 |e : Lon|gint ;.F|
|00002d90| 55 4e 43 54 49 4f 4e 20 | 47 65 74 50 6f 72 74 20 |UNCTION |GetPort |
|00002da0| 20 3a 20 47 72 61 66 50 | 6f 72 74 50 74 72 20 3b | : GrafP|ortPtr ;|
|00002db0| 0d 50 52 4f 43 45 44 55 | 52 45 20 47 65 74 50 6f |.PROCEDU|RE GetPo|
|00002dc0| 72 74 4c 6f 63 20 28 56 | 41 52 20 6c 6f 63 49 6e |rtLoc (V|AR locIn|
|00002dd0| 66 6f 50 74 72 3a 4c 6f | 63 49 6e 66 6f 29 20 20 |foPtr:Lo|cInfo) |
|00002de0| 3b 0d 50 52 4f 43 45 44 | 55 52 45 20 47 65 74 50 |;.PROCED|URE GetP|
|00002df0| 6f 72 74 52 65 63 74 20 | 28 56 41 52 20 70 6f 72 |ortRect |(VAR por|
|00002e00| 74 52 65 63 74 50 74 72 | 3a 52 65 63 74 29 20 20 |tRectPtr|:Rect) |
|00002e10| 3b 0d 50 52 4f 43 45 44 | 55 52 45 20 47 65 74 52 |;.PROCED|URE GetR|
|00002e20| 4f 4d 46 6f 6e 74 20 28 | 56 41 52 20 72 65 63 6f |OMFont (|VAR reco|
|00002e30| 72 64 50 74 72 3a 52 6f | 6d 46 6f 6e 74 52 65 63 |rdPtr:Ro|mFontRec|
|00002e40| 29 20 20 3b 0d 46 55 4e | 43 54 49 4f 4e 20 47 65 |) ;.FUN|CTION Ge|
|00002e50| 74 52 67 6e 53 61 76 65 | 20 20 3a 20 4c 6f 6e 67 |tRgnSave| : Long|
|00002e60| 69 6e 74 20 3b 0d 46 55 | 4e 43 54 49 4f 4e 20 47 |int ;.FU|NCTION G|
|00002e70| 65 74 53 43 42 20 28 20 | 73 63 61 6e 4c 69 6e 65 |etSCB ( |scanLine|
|00002e80| 3a 49 6e 74 65 67 65 72 | 29 20 3a 20 49 6e 74 65 |:Integer|) : Inte|
|00002e90| 67 65 72 20 3b 0d 46 55 | 4e 43 54 49 4f 4e 20 47 |ger ;.FU|NCTION G|
|00002ea0| 65 74 53 70 61 63 65 45 | 78 74 72 61 20 20 3a 20 |etSpaceE|xtra : |
|00002eb0| 46 69 78 65 64 20 3b 0d | 46 55 4e 43 54 49 4f 4e |Fixed ;.|FUNCTION|
|00002ec0| 20 47 65 74 53 74 61 6e | 64 61 72 64 53 43 42 20 | GetStan|dardSCB |
|00002ed0| 20 3a 20 49 6e 74 65 67 | 65 72 20 3b 0d 46 55 4e | : Integ|er ;.FUN|
|00002ee0| 43 54 49 4f 4e 20 47 65 | 74 53 79 73 46 69 65 6c |CTION Ge|tSysFiel|
|00002ef0| 64 20 20 3a 20 4c 6f 6e | 67 69 6e 74 20 3b 0d 46 |d : Lon|gint ;.F|
|00002f00| 55 4e 43 54 49 4f 4e 20 | 47 65 74 53 79 73 46 6f |UNCTION |GetSysFo|
|00002f10| 6e 74 20 20 3a 20 46 6f | 6e 74 48 6e 64 6c 20 3b |nt : Fo|ntHndl ;|
|00002f20| 0d 46 55 4e 43 54 49 4f | 4e 20 47 65 74 54 65 78 |.FUNCTIO|N GetTex|
|00002f30| 74 46 61 63 65 20 20 3a | 20 54 65 78 74 53 74 79 |tFace :| TextSty|
|00002f40| 6c 65 20 3b 0d 46 55 4e | 43 54 49 4f 4e 20 47 65 |le ;.FUN|CTION Ge|
|00002f50| 74 54 65 78 74 4d 6f 64 | 65 20 20 3a 20 49 6e 74 |tTextMod|e : Int|
|00002f60| 65 67 65 72 20 3b 0d 46 | 55 4e 43 54 49 4f 4e 20 |eger ;.F|UNCTION |
|00002f70| 47 65 74 54 65 78 74 53 | 69 7a 65 20 20 3a 20 49 |GetTextS|ize : I|
|00002f80| 6e 74 65 67 65 72 20 3b | 0d 46 55 4e 43 54 49 4f |nteger ;|.FUNCTIO|
|00002f90| 4e 20 47 65 74 55 73 65 | 72 46 69 65 6c 64 20 20 |N GetUse|rField |
|00002fa0| 3a 20 4c 6f 6e 67 69 6e | 74 20 3b 0d 46 55 4e 43 |: Longin|t ;.FUNC|
|00002fb0| 54 49 4f 4e 20 20 47 65 | 74 56 69 73 48 61 6e 64 |TION Ge|tVisHand|
|00002fc0| 6c 65 20 20 3a 20 52 65 | 67 69 6f 6e 48 6e 64 6c |le : Re|gionHndl|
|00002fd0| 20 3b 0d 50 52 4f 43 45 | 44 55 52 45 20 47 65 74 | ;.PROCE|DURE Get|
|00002fe0| 56 69 73 52 67 6e 20 28 | 20 61 52 67 6e 48 61 6e |VisRgn (| aRgnHan|
|00002ff0| 64 6c 65 3a 52 65 67 69 | 6f 6e 48 6e 64 6c 29 20 |dle:Regi|onHndl) |
|00003000| 20 3b 0d 50 52 4f 43 45 | 44 55 52 45 20 47 6c 6f | ;.PROCE|DURE Glo|
|00003010| 62 61 6c 54 6f 4c 6f 63 | 61 6c 20 28 56 41 52 20 |balToLoc|al (VAR |
|00003020| 70 6f 69 6e 74 50 74 72 | 3a 50 6f 69 6e 74 29 20 |pointPtr|:Point) |
|00003030| 20 3b 0d 50 52 4f 43 45 | 44 55 52 45 20 47 72 61 | ;.PROCE|DURE Gra|
|00003040| 66 4f 66 66 20 20 20 3b | 0d 50 52 4f 43 45 44 55 |fOff ;|.PROCEDU|
|00003050| 52 45 20 47 72 61 66 4f | 6e 20 20 20 3b 0d 50 52 |RE GrafO|n ;.PR|
|00003060| 4f 43 45 44 55 52 45 20 | 48 69 64 65 43 75 72 73 |OCEDURE |HideCurs|
|00003070| 6f 72 20 20 20 3b 0d 50 | 52 4f 43 45 44 55 52 45 |or ;.P|ROCEDURE|
|00003080| 20 48 69 64 65 50 65 6e | 20 20 20 3b 0d 50 52 4f | HidePen| ;.PRO|
|00003090| 43 45 44 55 52 45 20 49 | 6e 66 6c 61 74 65 54 65 |CEDURE I|nflateTe|
|000030a0| 78 74 42 75 66 66 65 72 | 20 28 20 6e 65 77 57 69 |xtBuffer| ( newWi|
|000030b0| 64 74 68 3a 49 6e 74 65 | 67 65 72 3b 20 6e 65 77 |dth:Inte|ger; new|
|000030c0| 48 65 69 67 68 74 3a 49 | 6e 74 65 67 65 72 29 20 |Height:I|nteger) |
|000030d0| 20 3b 0d 50 52 4f 43 45 | 44 55 52 45 20 49 6e 69 | ;.PROCE|DURE Ini|
|000030e0| 74 43 6f 6c 6f 72 54 61 | 62 6c 65 20 28 56 41 52 |tColorTa|ble (VAR|
|000030f0| 20 74 61 62 6c 65 50 74 | 72 3a 43 6f 6c 6f 72 54 | tablePt|r:ColorT|
|00003100| 61 62 6c 65 29 20 20 3b | 0d 50 52 4f 43 45 44 55 |able) ;|.PROCEDU|
|00003110| 52 45 20 49 6e 69 74 43 | 75 72 73 6f 72 20 20 20 |RE InitC|ursor |
|00003120| 3b 0d 50 52 4f 43 45 44 | 55 52 45 20 49 6e 69 74 |;.PROCED|URE Init|
|00003130| 50 6f 72 74 20 28 20 70 | 6f 72 74 50 74 72 3a 47 |Port ( p|ortPtr:G|
|00003140| 72 61 66 50 6f 72 74 50 | 74 72 29 20 20 3b 0d 50 |rafPortP|tr) ;.P|
|00003150| 52 4f 43 45 44 55 52 45 | 20 49 6e 73 65 74 52 65 |ROCEDURE| InsetRe|
|00003160| 63 74 20 28 56 41 52 20 | 69 6e 73 65 74 52 65 63 |ct (VAR |insetRec|
|00003170| 74 50 74 72 3a 52 65 63 | 74 3b 20 64 65 6c 74 61 |tPtr:Rec|t; delta|
|00003180| 48 3a 49 6e 74 65 67 65 | 72 3b 20 64 65 6c 74 61 |H:Intege|r; delta|
|00003190| 56 3a 49 6e 74 65 67 65 | 72 29 20 20 3b 0d 50 52 |V:Intege|r) ;.PR|
|000031a0| 4f 43 45 44 55 52 45 20 | 49 6e 73 65 74 52 67 6e |OCEDURE |InsetRgn|
|000031b0| 20 28 20 61 52 67 6e 48 | 61 6e 64 6c 65 3a 52 65 | ( aRgnH|andle:Re|
|000031c0| 67 69 6f 6e 48 6e 64 6c | 3b 20 64 48 3a 49 6e 74 |gionHndl|; dH:Int|
|000031d0| 65 67 65 72 3b 20 64 56 | 3a 49 6e 74 65 67 65 72 |eger; dV|:Integer|
|000031e0| 29 20 20 3b 0d 50 52 4f | 43 45 44 55 52 45 20 49 |) ;.PRO|CEDURE I|
|000031f0| 6e 76 65 72 74 41 72 63 | 20 28 20 72 65 63 74 50 |nvertArc| ( rectP|
|00003200| 74 72 3a 52 65 63 74 3b | 20 73 74 61 72 74 41 6e |tr:Rect;| startAn|
|00003210| 67 6c 65 3a 49 6e 74 65 | 67 65 72 3b 20 61 72 63 |gle:Inte|ger; arc|
|00003220| 41 6e 67 6c 65 3a 49 6e | 74 65 67 65 72 29 20 20 |Angle:In|teger) |
|00003230| 3b 0d 50 52 4f 43 45 44 | 55 52 45 20 49 6e 76 65 |;.PROCED|URE Inve|
|00003240| 72 74 4f 76 61 6c 20 28 | 20 72 65 63 74 50 74 72 |rtOval (| rectPtr|
|00003250| 3a 52 65 63 74 29 20 20 | 3b 0d 50 52 4f 43 45 44 |:Rect) |;.PROCED|
|00003260| 55 52 45 20 49 6e 76 65 | 72 74 50 6f 6c 79 20 28 |URE Inve|rtPoly (|
|00003270| 20 70 6f 6c 79 48 61 6e | 64 6c 65 3a 48 61 6e 64 | polyHan|dle:Hand|
|00003280| 6c 65 29 20 20 3b 0d 50 | 52 4f 43 45 44 55 52 45 |le) ;.P|ROCEDURE|
|00003290| 20 49 6e 76 65 72 74 52 | 52 65 63 74 20 28 20 72 | InvertR|Rect ( r|
|000032a0| 65 63 74 50 74 72 3a 52 | 65 63 74 3b 20 6f 76 61 |ectPtr:R|ect; ova|
|000032b0| 6c 57 69 64 74 68 3a 49 | 6e 74 65 67 65 72 3b 20 |lWidth:I|nteger; |
|000032c0| 6f 76 61 6c 48 65 69 67 | 68 74 3a 49 6e 74 65 67 |ovalHeig|ht:Integ|
|000032d0| 65 72 29 20 20 3b 0d 50 | 52 4f 43 45 44 55 52 45 |er) ;.P|ROCEDURE|
|000032e0| 20 49 6e 76 65 72 74 52 | 65 63 74 20 28 20 72 65 | InvertR|ect ( re|
|000032f0| 63 74 50 74 72 3a 52 65 | 63 74 29 20 20 3b 0d 50 |ctPtr:Re|ct) ;.P|
|00003300| 52 4f 43 45 44 55 52 45 | 20 49 6e 76 65 72 74 52 |ROCEDURE| InvertR|
|00003310| 67 6e 20 28 20 61 52 67 | 6e 48 61 6e 64 6c 65 3a |gn ( aRg|nHandle:|
|00003320| 52 65 67 69 6f 6e 48 6e | 64 6c 29 20 20 3b 0d 50 |RegionHn|dl) ;.P|
|00003330| 52 4f 43 45 44 55 52 45 | 20 4b 69 6c 6c 50 6f 6c |ROCEDURE| KillPol|
|00003340| 79 20 28 20 70 6f 6c 79 | 48 61 6e 64 6c 65 3a 48 |y ( poly|Handle:H|
|00003350| 61 6e 64 6c 65 29 20 20 | 3b 0d 50 52 4f 43 45 44 |andle) |;.PROCED|
|00003360| 55 52 45 20 4c 69 6e 65 | 20 28 20 64 48 3a 49 6e |URE Line| ( dH:In|
|00003370| 74 65 67 65 72 3b 20 64 | 56 3a 49 6e 74 65 67 65 |teger; d|V:Intege|
|00003380| 72 29 20 20 3b 0d 50 52 | 4f 43 45 44 55 52 45 20 |r) ;.PR|OCEDURE |
|00003390| 4c 69 6e 65 54 6f 20 28 | 20 68 3a 49 6e 74 65 67 |LineTo (| h:Integ|
|000033a0| 65 72 3b 20 76 3a 49 6e | 74 65 67 65 72 29 20 20 |er; v:In|teger) |
|000033b0| 3b 0d 50 52 4f 43 45 44 | 55 52 45 20 4c 6f 63 61 |;.PROCED|URE Loca|
|000033c0| 6c 54 6f 47 6c 6f 62 61 | 6c 20 28 56 41 52 20 70 |lToGloba|l (VAR p|
|000033d0| 6f 69 6e 74 50 74 72 3a | 50 6f 69 6e 74 29 20 20 |ointPtr:|Point) |
|000033e0| 3b 0d 50 52 4f 43 45 44 | 55 52 45 20 4d 61 70 50 |;.PROCED|URE MapP|
|000033f0| 6f 6c 79 20 28 20 70 6f | 6c 79 48 61 6e 64 6c 65 |oly ( po|lyHandle|
|00003400| 3a 48 61 6e 64 6c 65 3b | 20 73 72 63 52 65 63 74 |:Handle;| srcRect|
|00003410| 50 74 72 3a 52 65 63 74 | 3b 20 64 65 73 74 52 65 |Ptr:Rect|; destRe|
|00003420| 63 74 50 74 72 3a 52 65 | 63 74 29 20 20 3b 0d 50 |ctPtr:Re|ct) ;.P|
|00003430| 52 4f 43 45 44 55 52 45 | 20 4d 61 70 50 74 20 28 |ROCEDURE| MapPt (|
|00003440| 56 41 52 20 70 6f 69 6e | 74 50 74 72 3a 50 6f 69 |VAR poin|tPtr:Poi|
|00003450| 6e 74 3b 20 73 72 63 52 | 65 63 74 50 74 72 3a 52 |nt; srcR|ectPtr:R|
|00003460| 65 63 74 3b 20 64 65 73 | 74 52 65 63 74 50 74 72 |ect; des|tRectPtr|
|00003470| 3a 52 65 63 74 29 20 20 | 3b 0d 50 52 4f 43 45 44 |:Rect) |;.PROCED|
|00003480| 55 52 45 20 4d 61 70 52 | 65 63 74 20 28 56 41 52 |URE MapR|ect (VAR|
|00003490| 20 72 65 63 74 50 74 72 | 3a 52 65 63 74 3b 20 73 | rectPtr|:Rect; s|
|000034a0| 72 63 52 65 63 74 50 74 | 72 3a 52 65 63 74 3b 20 |rcRectPt|r:Rect; |
|000034b0| 64 65 73 74 52 65 63 74 | 50 74 72 3a 52 65 63 74 |destRect|Ptr:Rect|
|000034c0| 29 20 20 3b 0d 50 52 4f | 43 45 44 55 52 45 20 4d |) ;.PRO|CEDURE M|
|000034d0| 61 70 52 67 6e 20 28 20 | 61 52 67 6e 48 61 6e 64 |apRgn ( |aRgnHand|
|000034e0| 6c 65 3a 52 65 67 69 6f | 6e 48 6e 64 6c 3b 20 73 |le:Regio|nHndl; s|
|000034f0| 72 63 52 65 63 74 50 74 | 72 3a 52 65 63 74 3b 20 |rcRectPt|r:Rect; |
|00003500| 64 65 73 74 64 52 65 63 | 74 50 74 72 3a 52 65 63 |destdRec|tPtr:Rec|
|00003510| 74 29 20 20 3b 0d 50 52 | 4f 43 45 44 55 52 45 20 |t) ;.PR|OCEDURE |
|00003520| 4d 6f 76 65 20 28 20 64 | 48 3a 49 6e 74 65 67 65 |Move ( d|H:Intege|
|00003530| 72 3b 20 64 56 3a 49 6e | 74 65 67 65 72 29 20 20 |r; dV:In|teger) |
|00003540| 3b 0d 50 52 4f 43 45 44 | 55 52 45 20 4d 6f 76 65 |;.PROCED|URE Move|
|00003550| 50 6f 72 74 54 6f 20 28 | 20 68 3a 49 6e 74 65 67 |PortTo (| h:Integ|
|00003560| 65 72 3b 20 76 3a 49 6e | 74 65 67 65 72 29 20 20 |er; v:In|teger) |
|00003570| 3b 0d 50 52 4f 43 45 44 | 55 52 45 20 4d 6f 76 65 |;.PROCED|URE Move|
|00003580| 54 6f 20 28 20 68 3a 49 | 6e 74 65 67 65 72 3b 20 |To ( h:I|nteger; |
|00003590| 76 3a 49 6e 74 65 67 65 | 72 29 20 20 3b 0d 46 55 |v:Intege|r) ;.FU|
|000035a0| 4e 43 54 49 4f 4e 20 20 | 4e 65 77 52 67 6e 20 20 |NCTION |NewRgn |
|000035b0| 3a 20 52 65 67 69 6f 6e | 48 6e 64 6c 20 3b 0d 46 |: Region|Hndl ;.F|
|000035c0| 55 4e 43 54 49 4f 4e 20 | 4e 6f 74 45 6d 70 74 79 |UNCTION |NotEmpty|
|000035d0| 52 65 63 74 20 28 20 72 | 65 63 74 50 74 72 3a 52 |Rect ( r|ectPtr:R|
|000035e0| 65 63 74 29 20 3a 20 42 | 6f 6f 6c 65 61 6e 20 3b |ect) : B|oolean ;|
|000035f0| 0d 50 52 4f 43 45 44 55 | 52 45 20 4f 62 73 63 75 |.PROCEDU|RE Obscu|
|00003600| 72 65 43 75 72 73 6f 72 | 20 20 20 3b 0d 50 52 4f |reCursor| ;.PRO|
|00003610| 43 45 44 55 52 45 20 4f | 66 66 73 65 74 50 6f 6c |CEDURE O|ffsetPol|
|00003620| 79 20 28 20 70 6f 6c 79 | 48 61 6e 64 6c 65 3a 48 |y ( poly|Handle:H|
|00003630| 61 6e 64 6c 65 3b 20 64 | 48 3a 49 6e 74 65 67 65 |andle; d|H:Intege|
|00003640| 72 3b 20 64 56 3a 49 6e | 74 65 67 65 72 29 20 20 |r; dV:In|teger) |
|00003650| 3b 0d 50 52 4f 43 45 44 | 55 52 45 20 4f 66 66 73 |;.PROCED|URE Offs|
|00003660| 65 74 52 65 63 74 20 28 | 56 41 52 20 6f 66 66 73 |etRect (|VAR offs|
|00003670| 65 74 52 65 63 74 50 74 | 72 3a 52 65 63 74 3b 20 |etRectPt|r:Rect; |
|00003680| 64 65 6c 74 61 48 3a 49 | 6e 74 65 67 65 72 3b 20 |deltaH:I|nteger; |
|00003690| 64 65 6c 74 61 56 3a 49 | 6e 74 65 67 65 72 29 20 |deltaV:I|nteger) |
|000036a0| 20 3b 0d 50 52 4f 43 45 | 44 55 52 45 20 4f 66 66 | ;.PROCE|DURE Off|
|000036b0| 73 65 74 52 67 6e 20 28 | 20 61 52 67 6e 48 61 6e |setRgn (| aRgnHan|
|000036c0| 64 6c 65 3a 52 65 67 69 | 6f 6e 48 6e 64 6c 3b 20 |dle:Regi|onHndl; |
|000036d0| 64 48 3a 49 6e 74 65 67 | 65 72 3b 20 64 56 3a 49 |dH:Integ|er; dV:I|
|000036e0| 6e 74 65 67 65 72 29 20 | 20 3b 0d 46 55 4e 43 54 |nteger) | ;.FUNCT|
|000036f0| 49 4f 4e 20 4f 70 65 6e | 50 6f 6c 79 20 20 3a 20 |ION Open|Poly : |
|00003700| 68 61 6e 64 6c 65 20 3b | 0d 50 52 4f 43 45 44 55 |handle ;|.PROCEDU|
|00003710| 52 45 20 4f 70 65 6e 50 | 6f 72 74 20 28 20 70 6f |RE OpenP|ort ( po|
|00003720| 72 74 50 74 72 3a 47 72 | 61 66 50 6f 72 74 50 74 |rtPtr:Gr|afPortPt|
|00003730| 72 29 20 20 3b 0d 50 52 | 4f 43 45 44 55 52 45 20 |r) ;.PR|OCEDURE |
|00003740| 4f 70 65 6e 52 67 6e 20 | 20 20 3b 0d 50 52 4f 43 |OpenRgn | ;.PROC|
|00003750| 45 44 55 52 45 20 50 50 | 54 6f 50 6f 72 74 20 28 |EDURE PP|ToPort (|
|00003760| 20 73 72 63 4c 6f 63 50 | 74 72 3a 4c 6f 63 49 6e | srcLocP|tr:LocIn|
|00003770| 66 6f 50 74 72 3b 20 73 | 72 63 52 65 63 74 50 74 |foPtr; s|rcRectPt|
|00003780| 72 3a 52 65 63 74 3b 20 | 64 65 73 74 58 3a 49 6e |r:Rect; |destX:In|
|00003790| 74 65 67 65 72 3b 20 64 | 65 73 74 59 3a 49 6e 74 |teger; d|estY:Int|
|000037a0| 65 67 65 72 3b 20 74 72 | 61 6e 73 66 65 72 4d 6f |eger; tr|ansferMo|
|000037b0| 64 65 3a 49 6e 74 65 67 | 65 72 29 20 20 3b 0d 50 |de:Integ|er) ;.P|
|000037c0| 52 4f 43 45 44 55 52 45 | 20 50 61 69 6e 74 41 72 |ROCEDURE| PaintAr|
|000037d0| 63 20 28 20 72 65 63 74 | 50 74 72 3a 52 65 63 74 |c ( rect|Ptr:Rect|
|000037e0| 3b 20 73 74 61 72 74 41 | 6e 67 6c 65 3a 49 6e 74 |; startA|ngle:Int|
|000037f0| 65 67 65 72 3b 20 61 72 | 63 41 6e 67 6c 65 3a 49 |eger; ar|cAngle:I|
|00003800| 6e 74 65 67 65 72 29 20 | 20 3b 0d 50 52 4f 43 45 |nteger) | ;.PROCE|
|00003810| 44 55 52 45 20 50 61 69 | 6e 74 4f 76 61 6c 20 28 |DURE Pai|ntOval (|
|00003820| 20 72 65 63 74 50 74 72 | 3a 52 65 63 74 29 20 20 | rectPtr|:Rect) |
|00003830| 3b 0d 50 52 4f 43 45 44 | 55 52 45 20 50 61 69 6e |;.PROCED|URE Pain|
|00003840| 74 50 69 78 65 6c 73 20 | 28 20 61 50 61 69 6e 74 |tPixels |( aPaint|
|00003850| 50 61 72 61 6d 50 74 72 | 3a 50 61 69 6e 74 50 61 |ParamPtr|:PaintPa|
|00003860| 72 61 6d 29 20 20 3b 0d | 50 52 4f 43 45 44 55 52 |ram) ;.|PROCEDUR|
|00003870| 45 20 50 61 69 6e 74 50 | 6f 6c 79 20 28 20 70 6f |E PaintP|oly ( po|
|00003880| 6c 79 48 61 6e 64 6c 65 | 3a 48 61 6e 64 6c 65 29 |lyHandle|:Handle)|
|00003890| 20 20 3b 0d 50 52 4f 43 | 45 44 55 52 45 20 50 61 | ;.PROC|EDURE Pa|
|000038a0| 69 6e 74 52 52 65 63 74 | 20 28 20 72 65 63 74 50 |intRRect| ( rectP|
|000038b0| 74 72 3a 52 65 63 74 3b | 20 6f 76 61 6c 57 69 64 |tr:Rect;| ovalWid|
|000038c0| 74 68 3a 49 6e 74 65 67 | 65 72 3b 20 6f 76 61 6c |th:Integ|er; oval|
|000038d0| 48 65 69 67 68 74 3a 49 | 6e 74 65 67 65 72 29 20 |Height:I|nteger) |
|000038e0| 20 3b 0d 50 52 4f 43 45 | 44 55 52 45 20 50 61 69 | ;.PROCE|DURE Pai|
|000038f0| 6e 74 52 65 63 74 20 28 | 20 72 65 63 74 50 74 72 |ntRect (| rectPtr|
|00003900| 3a 52 65 63 74 29 20 20 | 3b 0d 50 52 4f 43 45 44 |:Rect) |;.PROCED|
|00003910| 55 52 45 20 50 61 69 6e | 74 52 67 6e 20 28 20 61 |URE Pain|tRgn ( a|
|00003920| 52 67 6e 48 61 6e 64 6c | 65 3a 52 65 67 69 6f 6e |RgnHandl|e:Region|
|00003930| 48 6e 64 6c 29 20 20 3b | 0d 50 52 4f 43 45 44 55 |Hndl) ;|.PROCEDU|
|00003940| 52 45 20 50 65 6e 4e 6f | 72 6d 61 6c 20 20 20 3b |RE PenNo|rmal ;|
|00003950| 0d 50 52 4f 43 45 44 55 | 52 45 20 50 74 32 52 65 |.PROCEDU|RE Pt2Re|
|00003960| 63 74 20 28 56 41 52 20 | 70 6f 69 6e 74 31 50 74 |ct (VAR |point1Pt|
|00003970| 72 3a 50 6f 69 6e 74 3b | 56 41 52 20 70 6f 69 6e |r:Point;|VAR poin|
|00003980| 74 32 50 74 72 3a 50 6f | 69 6e 74 3b 56 41 52 20 |t2Ptr:Po|int;VAR |
|00003990| 74 6f 52 65 63 74 50 74 | 72 3a 52 65 63 74 29 20 |toRectPt|r:Rect) |
|000039a0| 20 3b 0d 46 55 4e 43 54 | 49 4f 4e 20 50 74 49 6e | ;.FUNCT|ION PtIn|
|000039b0| 52 65 63 74 20 28 56 41 | 52 20 70 6f 69 6e 74 50 |Rect (VA|R pointP|
|000039c0| 74 72 3a 50 6f 69 6e 74 | 3b 20 72 65 63 74 50 74 |tr:Point|; rectPt|
|000039d0| 72 3a 52 65 63 74 29 20 | 3a 20 42 6f 6f 6c 65 61 |r:Rect) |: Boolea|
|000039e0| 6e 20 3b 0d 46 55 4e 43 | 54 49 4f 4e 20 20 50 74 |n ;.FUNC|TION Pt|
|000039f0| 49 6e 52 67 6e 20 28 56 | 41 52 20 61 50 6f 69 6e |InRgn (V|AR aPoin|
|00003a00| 74 50 74 72 3a 50 6f 69 | 6e 74 3b 20 61 52 67 6e |tPtr:Poi|nt; aRgn|
|00003a10| 48 61 6e 64 6c 65 3a 52 | 65 67 69 6f 6e 48 6e 64 |Handle:R|egionHnd|
|00003a20| 6c 29 20 3a 20 42 6f 6f | 6c 65 61 6e 20 3b 0d 50 |l) : Boo|lean ;.P|
|00003a30| 52 4f 43 45 44 55 52 45 | 20 51 44 42 6f 6f 74 49 |ROCEDURE| QDBootI|
|00003a40| 6e 69 74 20 20 20 3b 0d | 50 52 4f 43 45 44 55 52 |nit ;.|PROCEDUR|
|00003a50| 45 20 51 44 52 65 73 65 | 74 20 20 20 3b 0d 50 52 |E QDRese|t ;.PR|
|00003a60| 4f 43 45 44 55 52 45 20 | 51 44 53 68 75 74 44 6f |OCEDURE |QDShutDo|
|00003a70| 77 6e 20 20 20 3b 0d 50 | 52 4f 43 45 44 55 52 45 |wn ;.P|ROCEDURE|
|00003a80| 20 51 44 53 74 61 72 74 | 55 70 20 28 20 64 50 61 | QDStart|Up ( dPa|
|00003a90| 67 65 41 64 64 72 3a 49 | 6e 74 65 67 65 72 3b 20 |geAddr:I|nteger; |
|00003aa0| 6d 61 73 74 65 72 53 43 | 42 3a 49 6e 74 65 67 65 |masterSC|B:Intege|
|00003ab0| 72 3b 20 6d 61 78 57 69 | 64 74 68 3a 49 6e 74 65 |r; maxWi|dth:Inte|
|00003ac0| 67 65 72 3b 20 75 73 65 | 72 49 44 3a 49 6e 74 65 |ger; use|rID:Inte|
|00003ad0| 67 65 72 29 20 20 3b 0d | 46 55 4e 43 54 49 4f 4e |ger) ;.|FUNCTION|
|00003ae0| 20 51 44 53 74 61 74 75 | 73 20 20 3a 20 42 6f 6f | QDStatu|s : Boo|
|00003af0| 6c 65 61 6e 20 3b 0d 46 | 55 4e 43 54 49 4f 4e 20 |lean ;.F|UNCTION |
|00003b00| 51 44 56 65 72 73 69 6f | 6e 20 20 3a 20 49 6e 74 |QDVersio|n : Int|
|00003b10| 65 67 65 72 20 3b 0d 46 | 55 4e 43 54 49 4f 4e 20 |eger ;.F|UNCTION |
|00003b20| 52 61 6e 64 6f 6d 20 20 | 3a 20 49 6e 74 65 67 65 |Random |: Intege|
|00003b30| 72 20 3b 0d 46 55 4e 43 | 54 49 4f 4e 20 20 52 65 |r ;.FUNC|TION Re|
|00003b40| 63 74 49 6e 52 67 6e 20 | 28 20 61 52 65 63 74 50 |ctInRgn |( aRectP|
|00003b50| 74 72 3a 52 65 63 74 3b | 20 61 52 67 6e 48 61 6e |tr:Rect;| aRgnHan|
|00003b60| 64 6c 65 3a 52 65 67 69 | 6f 6e 48 6e 64 6c 29 20 |dle:Regi|onHndl) |
|00003b70| 3a 20 42 6f 6f 6c 65 61 | 6e 20 3b 0d 50 52 4f 43 |: Boolea|n ;.PROC|
|00003b80| 45 44 55 52 45 20 52 65 | 63 74 52 67 6e 20 28 20 |EDURE Re|ctRgn ( |
|00003b90| 61 52 67 6e 48 61 6e 64 | 6c 65 3a 52 65 67 69 6f |aRgnHand|le:Regio|
|00003ba0| 6e 48 6e 64 6c 3b 20 5f | 5f 72 65 63 74 50 74 72 |nHndl; _|_rectPtr|
|00003bb0| 3a 52 65 63 74 29 20 20 | 3b 0d 50 52 4f 43 45 44 |:Rect) |;.PROCED|
|00003bc0| 55 52 45 20 52 65 73 74 | 6f 72 65 42 75 66 44 69 |URE Rest|oreBufDi|
|00003bd0| 6d 73 20 28 20 73 69 7a | 65 49 6e 66 6f 50 74 72 |ms ( siz|eInfoPtr|
|00003be0| 3a 42 75 66 44 69 6d 52 | 65 63 50 74 72 29 20 20 |:BufDimR|ecPtr) |
|00003bf0| 3b 0d 50 52 4f 43 45 44 | 55 52 45 20 53 61 76 65 |;.PROCED|URE Save|
|00003c00| 42 75 66 44 69 6d 73 20 | 28 56 41 52 20 73 69 7a |BufDims |(VAR siz|
|00003c10| 65 49 6e 66 6f 50 74 72 | 3a 42 75 66 44 69 6d 52 |eInfoPtr|:BufDimR|
|00003c20| 65 63 29 20 20 3b 0d 50 | 52 4f 43 45 44 55 52 45 |ec) ;.P|ROCEDURE|
|00003c30| 20 53 63 61 6c 65 50 74 | 20 28 56 41 52 20 70 6f | ScalePt| (VAR po|
|00003c40| 69 6e 74 50 74 72 3a 50 | 6f 69 6e 74 3b 20 73 72 |intPtr:P|oint; sr|
|00003c50| 63 52 65 63 74 50 74 72 | 3a 52 65 63 74 3b 20 64 |cRectPtr|:Rect; d|
|00003c60| 65 73 74 52 65 63 74 50 | 74 72 3a 52 65 63 74 29 |estRectP|tr:Rect)|
|00003c70| 20 20 3b 0d 50 52 4f 43 | 45 44 55 52 45 20 53 63 | ;.PROC|EDURE Sc|
|00003c80| 72 6f 6c 6c 52 65 63 74 | 20 28 20 5f 5f 72 65 63 |rollRect| ( __rec|
|00003c90| 74 50 74 72 3a 52 65 63 | 74 3b 20 64 48 3a 49 6e |tPtr:Rec|t; dH:In|
|00003ca0| 74 65 67 65 72 3b 20 64 | 56 3a 49 6e 74 65 67 65 |teger; d|V:Intege|
|00003cb0| 72 3b 20 61 52 67 6e 48 | 61 6e 64 6c 65 3a 52 65 |r; aRgnH|andle:Re|
|00003cc0| 67 69 6f 6e 48 6e 64 6c | 29 20 20 3b 0d 46 55 4e |gionHndl|) ;.FUN|
|00003cd0| 43 54 49 4f 4e 20 53 65 | 63 74 52 65 63 74 20 28 |CTION Se|ctRect (|
|00003ce0| 20 72 65 63 74 31 50 74 | 72 3a 52 65 63 74 3b 20 | rect1Pt|r:Rect; |
|00003cf0| 72 65 63 74 32 50 74 72 | 3a 52 65 63 74 3b 56 41 |rect2Ptr|:Rect;VA|
|00003d00| 52 20 69 6e 74 65 72 73 | 65 63 74 52 65 63 74 50 |R inters|ectRectP|
|00003d10| 74 72 3a 52 65 63 74 29 | 20 3a 20 42 6f 6f 6c 65 |tr:Rect)| : Boole|
|00003d20| 61 6e 20 3b 0d 50 52 4f | 43 45 44 55 52 45 20 53 |an ;.PRO|CEDURE S|
|00003d30| 65 63 74 52 67 6e 20 28 | 20 72 67 6e 31 48 61 6e |ectRgn (| rgn1Han|
|00003d40| 64 6c 65 3a 52 65 67 69 | 6f 6e 48 6e 64 6c 3b 20 |dle:Regi|onHndl; |
|00003d50| 72 67 6e 32 48 61 6e 64 | 6c 65 3a 52 65 67 69 6f |rgn2Hand|le:Regio|
|00003d60| 6e 48 6e 64 6c 3b 20 64 | 65 73 74 52 67 6e 48 61 |nHndl; d|estRgnHa|
|00003d70| 6e 64 6c 65 3a 52 65 67 | 69 6f 6e 48 6e 64 6c 29 |ndle:Reg|ionHndl)|
|00003d80| 20 20 3b 0d 50 52 4f 43 | 45 44 55 52 45 20 53 65 | ;.PROC|EDURE Se|
|00003d90| 74 41 6c 6c 53 43 42 73 | 20 28 20 6e 65 77 53 43 |tAllSCBs| ( newSC|
|00003da0| 42 3a 49 6e 74 65 67 65 | 72 29 20 20 3b 0d 50 52 |B:Intege|r) ;.PR|
|00003db0| 4f 43 45 44 55 52 45 20 | 53 65 74 41 72 63 52 6f |OCEDURE |SetArcRo|
|00003dc0| 74 20 28 20 61 72 63 52 | 6f 74 56 61 6c 75 65 3a |t ( arcR|otValue:|
|00003dd0| 49 6e 74 65 67 65 72 29 | 20 20 3b 0d 50 52 4f 43 |Integer)| ;.PROC|
|00003de0| 45 44 55 52 45 20 53 65 | 74 42 61 63 6b 43 6f 6c |EDURE Se|tBackCol|
|00003df0| 6f 72 20 28 20 62 61 63 | 6b 43 6f 6c 6f 72 3a 49 |or ( bac|kColor:I|
|00003e00| 6e 74 65 67 65 72 29 20 | 20 3b 0d 50 52 4f 43 45 |nteger) | ;.PROCE|
|00003e10| 44 55 52 45 20 53 65 74 | 42 61 63 6b 50 61 74 20 |DURE Set|BackPat |
|00003e20| 28 20 70 61 74 74 65 72 | 6e 50 74 72 3a 50 61 74 |( patter|nPtr:Pat|
|00003e30| 74 65 72 6e 29 20 20 3b | 0d 50 52 4f 43 45 44 55 |tern) ;|.PROCEDU|
|00003e40| 52 45 20 53 65 74 42 75 | 66 44 69 6d 73 20 28 20 |RE SetBu|fDims ( |
|00003e50| 6d 61 78 57 69 64 74 68 | 3a 49 6e 74 65 67 65 72 |maxWidth|:Integer|
|00003e60| 3b 20 6d 61 78 46 6f 6e | 74 48 65 69 67 68 74 3a |; maxFon|tHeight:|
|00003e70| 49 6e 74 65 67 65 72 3b | 20 6d 61 78 46 42 52 45 |Integer;| maxFBRE|
|00003e80| 78 74 65 6e 74 3a 49 6e | 74 65 67 65 72 29 20 20 |xtent:In|teger) |
|00003e90| 3b 0d 50 52 4f 43 45 44 | 55 52 45 20 53 65 74 43 |;.PROCED|URE SetC|
|00003ea0| 68 61 72 45 78 74 72 61 | 20 28 20 63 68 61 72 45 |harExtra| ( charE|
|00003eb0| 78 74 72 61 3a 46 69 78 | 65 64 29 20 20 3b 0d 50 |xtra:Fix|ed) ;.P|
|00003ec0| 52 4f 43 45 44 55 52 45 | 20 53 65 74 43 6c 69 70 |ROCEDURE| SetClip|
|00003ed0| 20 28 20 61 52 67 6e 48 | 61 6e 64 6c 65 3a 52 65 | ( aRgnH|andle:Re|
|00003ee0| 67 69 6f 6e 48 6e 64 6c | 29 20 20 3b 0d 50 52 4f |gionHndl|) ;.PRO|
|00003ef0| 43 45 44 55 52 45 20 53 | 65 74 43 6c 69 70 48 61 |CEDURE S|etClipHa|
|00003f00| 6e 64 6c 65 20 28 20 61 | 52 67 6e 48 61 6e 64 6c |ndle ( a|RgnHandl|
|00003f10| 65 3a 52 65 67 69 6f 6e | 48 6e 64 6c 29 20 20 3b |e:Region|Hndl) ;|
|00003f20| 0d 50 52 4f 43 45 44 55 | 52 45 20 53 65 74 43 6f |.PROCEDU|RE SetCo|
|00003f30| 6c 6f 72 45 6e 74 72 79 | 20 28 20 74 61 62 6c 65 |lorEntry| ( table|
|00003f40| 4e 75 6d 62 65 72 3a 49 | 6e 74 65 67 65 72 3b 20 |Number:I|nteger; |
|00003f50| 65 6e 74 72 79 4e 75 6d | 62 65 72 3a 49 6e 74 65 |entryNum|ber:Inte|
|00003f60| 67 65 72 3b 20 6e 65 77 | 43 6f 6c 6f 72 3a 43 6f |ger; new|Color:Co|
|00003f70| 6c 6f 72 56 61 6c 75 65 | 29 20 20 3b 0d 50 52 4f |lorValue|) ;.PRO|
|00003f80| 43 45 44 55 52 45 20 53 | 65 74 43 6f 6c 6f 72 54 |CEDURE S|etColorT|
|00003f90| 61 62 6c 65 20 28 20 74 | 61 62 6c 65 4e 75 6d 62 |able ( t|ableNumb|
|00003fa0| 65 72 3a 49 6e 74 65 67 | 65 72 3b 20 73 72 63 54 |er:Integ|er; srcT|
|00003fb0| 61 62 6c 65 50 74 72 3a | 43 6f 6c 6f 72 54 61 62 |ablePtr:|ColorTab|
|00003fc0| 6c 65 29 20 20 3b 0d 50 | 52 4f 43 45 44 55 52 45 |le) ;.P|ROCEDURE|
|00003fd0| 20 53 65 74 43 75 72 73 | 6f 72 20 28 20 74 68 65 | SetCurs|or ( the|
|00003fe0| 43 75 72 73 6f 72 50 74 | 72 3a 43 75 72 73 6f 72 |CursorPt|r:Cursor|
|00003ff0| 29 20 20 3b 0d 50 52 4f | 43 45 44 55 52 45 20 53 |) ;.PRO|CEDURE S|
|00004000| 65 74 45 6d 70 74 79 52 | 67 6e 20 28 20 61 52 67 |etEmptyR|gn ( aRg|
|00004010| 6e 48 61 6e 64 6c 65 3a | 52 65 67 69 6f 6e 48 6e |nHandle:|RegionHn|
|00004020| 64 6c 29 20 20 3b 0d 50 | 52 4f 43 45 44 55 52 45 |dl) ;.P|ROCEDURE|
|00004030| 20 53 65 74 46 6f 6e 74 | 20 28 20 6e 65 77 46 6f | SetFont| ( newFo|
|00004040| 6e 74 48 61 6e 64 6c 65 | 3a 46 6f 6e 74 48 6e 64 |ntHandle|:FontHnd|
|00004050| 6c 29 20 20 3b 0d 50 52 | 4f 43 45 44 55 52 45 20 |l) ;.PR|OCEDURE |
|00004060| 53 65 74 46 6f 6e 74 46 | 6c 61 67 73 20 28 20 66 |SetFontF|lags ( f|
|00004070| 6f 6e 74 46 6c 61 67 73 | 3a 49 6e 74 65 67 65 72 |ontFlags|:Integer|
|00004080| 29 20 20 3b 0d 50 52 4f | 43 45 44 55 52 45 20 53 |) ;.PRO|CEDURE S|
|00004090| 65 74 46 6f 6e 74 49 44 | 20 28 20 6e 65 77 46 6f |etFontID| ( newFo|
|000040a0| 6e 74 49 44 3a 46 6f 6e | 74 49 44 29 20 20 3b 0d |ntID:Fon|tID) ;.|
|000040b0| 50 52 4f 43 45 44 55 52 | 45 20 53 65 74 46 6f 72 |PROCEDUR|E SetFor|
|000040c0| 65 43 6f 6c 6f 72 20 28 | 20 66 6f 72 65 43 6f 6c |eColor (| foreCol|
|000040d0| 6f 72 3a 49 6e 74 65 67 | 65 72 29 20 20 3b 0d 50 |or:Integ|er) ;.P|
|000040e0| 52 4f 43 45 44 55 52 45 | 20 53 65 74 47 72 61 66 |ROCEDURE| SetGraf|
|000040f0| 50 72 6f 63 73 20 28 20 | 67 72 61 66 50 72 6f 63 |Procs ( |grafProc|
|00004100| 73 50 74 72 3a 51 44 50 | 72 6f 63 73 50 74 72 29 |sPtr:QDP|rocsPtr)|
|00004110| 20 20 3b 0d 50 52 4f 43 | 45 44 55 52 45 20 53 65 | ;.PROC|EDURE Se|
|00004120| 74 49 6e 74 55 73 65 20 | 28 20 75 73 65 49 6e 74 |tIntUse |( useInt|
|00004130| 3a 42 6f 6f 6c 65 61 6e | 29 20 20 3b 0d 50 52 4f |:Boolean|) ;.PRO|
|00004140| 43 45 44 55 52 45 20 53 | 65 74 4d 61 73 74 65 72 |CEDURE S|etMaster|
|00004150| 53 43 42 20 28 20 6d 61 | 73 74 65 72 53 43 42 3a |SCB ( ma|sterSCB:|
|00004160| 49 6e 74 65 67 65 72 29 | 20 20 3b 0d 50 52 4f 43 |Integer)| ;.PROC|
|00004170| 45 44 55 52 45 20 53 65 | 74 4f 72 69 67 69 6e 20 |EDURE Se|tOrigin |
|00004180| 28 20 68 3a 49 6e 74 65 | 67 65 72 3b 20 76 3a 49 |( h:Inte|ger; v:I|
|00004190| 6e 74 65 67 65 72 29 20 | 20 3b 0d 50 52 4f 43 45 |nteger) | ;.PROCE|
|000041a0| 44 55 52 45 20 53 65 74 | 50 65 6e 4d 61 73 6b 20 |DURE Set|PenMask |
|000041b0| 28 20 6d 61 73 6b 50 74 | 72 3a 4d 61 73 6b 29 20 |( maskPt|r:Mask) |
|000041c0| 20 3b 0d 50 52 4f 43 45 | 44 55 52 45 20 53 65 74 | ;.PROCE|DURE Set|
|000041d0| 50 65 6e 4d 6f 64 65 20 | 28 20 70 65 6e 4d 6f 64 |PenMode |( penMod|
|000041e0| 65 3a 49 6e 74 65 67 65 | 72 29 20 20 3b 0d 50 52 |e:Intege|r) ;.PR|
|000041f0| 4f 43 45 44 55 52 45 20 | 53 65 74 50 65 6e 50 61 |OCEDURE |SetPenPa|
|00004200| 74 20 28 20 70 61 74 74 | 65 72 6e 50 74 72 3a 50 |t ( patt|ernPtr:P|
|00004210| 61 74 74 65 72 6e 29 20 | 20 3b 0d 50 52 4f 43 45 |attern) | ;.PROCE|
|00004220| 44 55 52 45 20 53 65 74 | 50 65 6e 53 69 7a 65 20 |DURE Set|PenSize |
|00004230| 28 20 70 65 6e 57 69 64 | 74 68 3a 49 6e 74 65 67 |( penWid|th:Integ|
|00004240| 65 72 3b 20 70 65 6e 48 | 65 69 67 68 74 3a 49 6e |er; penH|eight:In|
|00004250| 74 65 67 65 72 29 20 20 | 3b 0d 50 52 4f 43 45 44 |teger) |;.PROCED|
|00004260| 55 52 45 20 53 65 74 50 | 65 6e 53 74 61 74 65 20 |URE SetP|enState |
|00004270| 28 20 6e 65 77 50 65 6e | 53 74 61 74 65 50 74 72 |( newPen|StatePtr|
|00004280| 3a 50 65 6e 53 74 61 74 | 65 29 20 20 3b 0d 50 52 |:PenStat|e) ;.PR|
|00004290| 4f 43 45 44 55 52 45 20 | 53 65 74 50 69 63 53 61 |OCEDURE |SetPicSa|
|000042a0| 76 65 20 28 20 70 69 63 | 53 61 76 65 56 61 6c 75 |ve ( pic|SaveValu|
|000042b0| 65 3a 4c 6f 6e 67 69 6e | 74 29 20 20 3b 0d 50 52 |e:Longin|t) ;.PR|
|000042c0| 4f 43 45 44 55 52 45 20 | 53 65 74 50 6f 6c 79 53 |OCEDURE |SetPolyS|
|000042d0| 61 76 65 20 28 20 70 6f | 6c 79 53 61 76 65 56 61 |ave ( po|lySaveVa|
|000042e0| 6c 75 65 3a 4c 6f 6e 67 | 69 6e 74 29 20 20 3b 0d |lue:Long|int) ;.|
|000042f0| 50 52 4f 43 45 44 55 52 | 45 20 53 65 74 50 6f 72 |PROCEDUR|E SetPor|
|00004300| 74 20 28 20 70 6f 72 74 | 50 74 72 3a 47 72 61 66 |t ( port|Ptr:Graf|
|00004310| 50 6f 72 74 50 74 72 29 | 20 20 3b 0d 50 52 4f 43 |PortPtr)| ;.PROC|
|00004320| 45 44 55 52 45 20 53 65 | 74 50 6f 72 74 4c 6f 63 |EDURE Se|tPortLoc|
|00004330| 20 28 20 6e 65 77 4c 6f | 63 49 6e 66 6f 50 74 72 | ( newLo|cInfoPtr|
|00004340| 3a 4c 6f 63 49 6e 66 6f | 29 20 20 3b 0d 50 52 4f |:LocInfo|) ;.PRO|
|00004350| 43 45 44 55 52 45 20 53 | 65 74 50 6f 72 74 52 65 |CEDURE S|etPortRe|
|00004360| 63 74 20 28 20 72 65 63 | 74 50 74 72 3a 52 65 63 |ct ( rec|tPtr:Rec|
|00004370| 74 29 20 20 3b 0d 50 52 | 4f 43 45 44 55 52 45 20 |t) ;.PR|OCEDURE |
|00004380| 53 65 74 50 6f 72 74 53 | 69 7a 65 20 28 20 70 6f |SetPortS|ize ( po|
|00004390| 72 74 57 69 64 74 68 3a | 49 6e 74 65 67 65 72 3b |rtWidth:|Integer;|
|000043a0| 20 70 6f 72 74 48 65 69 | 67 68 74 3a 49 6e 74 65 | portHei|ght:Inte|
|000043b0| 67 65 72 29 20 20 3b 0d | 50 52 4f 43 45 44 55 52 |ger) ;.|PROCEDUR|
|000043c0| 45 20 53 65 74 50 74 20 | 28 56 41 52 20 73 72 63 |E SetPt |(VAR src|
|000043d0| 50 74 50 74 72 3a 50 6f | 69 6e 74 3b 20 68 3a 49 |PtPtr:Po|int; h:I|
|000043e0| 6e 74 65 67 65 72 3b 20 | 76 3a 49 6e 74 65 67 65 |nteger; |v:Intege|
|000043f0| 72 29 20 20 3b 0d 50 52 | 4f 43 45 44 55 52 45 20 |r) ;.PR|OCEDURE |
|00004400| 53 65 74 52 61 6e 64 53 | 65 65 64 20 28 20 72 61 |SetRandS|eed ( ra|
|00004410| 6e 64 6f 6d 53 65 65 64 | 3a 4c 6f 6e 67 69 6e 74 |ndomSeed|:Longint|
|00004420| 29 20 20 3b 0d 50 52 4f | 43 45 44 55 52 45 20 53 |) ;.PRO|CEDURE S|
|00004430| 65 74 52 65 63 74 20 28 | 56 41 52 20 61 52 65 63 |etRect (|VAR aRec|
|00004440| 74 50 74 72 3a 52 65 63 | 74 3b 20 6c 65 66 74 3a |tPtr:Rec|t; left:|
|00004450| 49 6e 74 65 67 65 72 3b | 20 74 6f 70 3a 49 6e 74 |Integer;| top:Int|
|00004460| 65 67 65 72 3b 20 72 69 | 67 68 74 3a 49 6e 74 65 |eger; ri|ght:Inte|
|00004470| 67 65 72 3b 20 62 6f 74 | 74 6f 6d 3a 49 6e 74 65 |ger; bot|tom:Inte|
|00004480| 67 65 72 29 20 20 3b 0d | 50 52 4f 43 45 44 55 52 |ger) ;.|PROCEDUR|
|00004490| 45 20 53 65 74 52 65 63 | 74 52 67 6e 20 28 20 61 |E SetRec|tRgn ( a|
|000044a0| 52 67 6e 48 61 6e 64 6c | 65 3a 52 65 67 69 6f 6e |RgnHandl|e:Region|
|000044b0| 48 6e 64 6c 3b 20 6c 65 | 66 74 3a 49 6e 74 65 67 |Hndl; le|ft:Integ|
|000044c0| 65 72 3b 20 74 6f 70 3a | 49 6e 74 65 67 65 72 3b |er; top:|Integer;|
|000044d0| 20 72 69 67 68 74 3a 49 | 6e 74 65 67 65 72 3b 20 | right:I|nteger; |
|000044e0| 62 6f 74 74 6f 6d 3a 49 | 6e 74 65 67 65 72 29 20 |bottom:I|nteger) |
|000044f0| 20 3b 0d 50 52 4f 43 45 | 44 55 52 45 20 53 65 74 | ;.PROCE|DURE Set|
|00004500| 52 67 6e 53 61 76 65 20 | 28 20 72 67 6e 53 61 76 |RgnSave |( rgnSav|
|00004510| 65 56 61 6c 75 65 3a 4c | 6f 6e 67 69 6e 74 29 20 |eValue:L|ongint) |
|00004520| 20 3b 0d 50 52 4f 43 45 | 44 55 52 45 20 53 65 74 | ;.PROCE|DURE Set|
|00004530| 53 43 42 20 28 20 73 63 | 61 6e 4c 69 6e 65 3a 49 |SCB ( sc|anLine:I|
|00004540| 6e 74 65 67 65 72 3b 20 | 6e 65 77 53 43 42 3a 49 |nteger; |newSCB:I|
|00004550| 6e 74 65 67 65 72 29 20 | 20 3b 0d 50 52 4f 43 45 |nteger) | ;.PROCE|
|00004560| 44 55 52 45 20 53 65 74 | 53 6f 6c 69 64 42 61 63 |DURE Set|SolidBac|
|00004570| 6b 50 61 74 20 28 20 63 | 6f 6c 6f 72 4e 75 6d 3a |kPat ( c|olorNum:|
|00004580| 49 6e 74 65 67 65 72 29 | 20 20 3b 0d 50 52 4f 43 |Integer)| ;.PROC|
|00004590| 45 44 55 52 45 20 53 65 | 74 53 6f 6c 69 64 50 65 |EDURE Se|tSolidPe|
|000045a0| 6e 50 61 74 20 28 20 63 | 6f 6c 6f 72 4e 75 6d 3a |nPat ( c|olorNum:|
|000045b0| 49 6e 74 65 67 65 72 29 | 20 20 3b 0d 50 52 4f 43 |Integer)| ;.PROC|
|000045c0| 45 44 55 52 45 20 53 65 | 74 53 70 61 63 65 45 78 |EDURE Se|tSpaceEx|
|000045d0| 74 72 61 20 28 20 73 70 | 61 63 65 45 78 74 72 61 |tra ( sp|aceExtra|
|000045e0| 3a 46 69 78 65 64 29 20 | 20 3b 0d 50 52 4f 43 45 |:Fixed) | ;.PROCE|
|000045f0| 44 55 52 45 20 53 65 74 | 53 74 64 50 72 6f 63 73 |DURE Set|StdProcs|
|00004600| 20 28 20 73 74 64 50 72 | 6f 63 52 65 63 50 74 72 | ( stdPr|ocRecPtr|
|00004610| 3a 51 44 50 72 6f 63 73 | 50 74 72 29 20 20 3b 0d |:QDProcs|Ptr) ;.|
|00004620| 50 52 4f 43 45 44 55 52 | 45 20 53 65 74 53 79 73 |PROCEDUR|E SetSys|
|00004630| 46 69 65 6c 64 20 28 20 | 73 79 73 46 69 65 6c 64 |Field ( |sysField|
|00004640| 56 61 6c 75 65 3a 4c 6f | 6e 67 69 6e 74 29 20 20 |Value:Lo|ngint) |
|00004650| 3b 0d 50 52 4f 43 45 44 | 55 52 45 20 53 65 74 53 |;.PROCED|URE SetS|
|00004660| 79 73 46 6f 6e 74 20 28 | 20 66 6f 6e 74 48 61 6e |ysFont (| fontHan|
|00004670| 64 6c 65 3a 46 6f 6e 74 | 48 6e 64 6c 29 20 20 3b |dle:Font|Hndl) ;|
|00004680| 0d 50 52 4f 43 45 44 55 | 52 45 20 53 65 74 54 65 |.PROCEDU|RE SetTe|
|00004690| 78 74 46 61 63 65 20 28 | 20 74 65 78 74 46 61 63 |xtFace (| textFac|
|000046a0| 65 3a 54 65 78 74 53 74 | 79 6c 65 29 20 20 3b 0d |e:TextSt|yle) ;.|
|000046b0| 50 52 4f 43 45 44 55 52 | 45 20 53 65 74 54 65 78 |PROCEDUR|E SetTex|
|000046c0| 74 4d 6f 64 65 20 28 20 | 74 65 78 74 4d 6f 64 65 |tMode ( |textMode|
|000046d0| 3a 49 6e 74 65 67 65 72 | 29 20 20 3b 0d 50 52 4f |:Integer|) ;.PRO|
|000046e0| 43 45 44 55 52 45 20 53 | 65 74 54 65 78 74 53 69 |CEDURE S|etTextSi|
|000046f0| 7a 65 20 28 20 74 65 78 | 74 53 69 7a 65 3a 49 6e |ze ( tex|tSize:In|
|00004700| 74 65 67 65 72 29 20 20 | 3b 0d 50 52 4f 43 45 44 |teger) |;.PROCED|
|00004710| 55 52 45 20 53 65 74 55 | 73 65 72 46 69 65 6c 64 |URE SetU|serField|
|00004720| 20 28 20 75 73 65 72 46 | 69 65 6c 64 56 61 6c 75 | ( userF|ieldValu|
|00004730| 65 3a 4c 6f 6e 67 69 6e | 74 29 20 20 3b 0d 50 52 |e:Longin|t) ;.PR|
|00004740| 4f 43 45 44 55 52 45 20 | 53 65 74 56 69 73 48 61 |OCEDURE |SetVisHa|
|00004750| 6e 64 6c 65 20 28 20 61 | 52 67 6e 48 61 6e 64 6c |ndle ( a|RgnHandl|
|00004760| 65 3a 52 65 67 69 6f 6e | 48 6e 64 6c 29 20 20 3b |e:Region|Hndl) ;|
|00004770| 0d 50 52 4f 43 45 44 55 | 52 45 20 53 65 74 56 69 |.PROCEDU|RE SetVi|
|00004780| 73 52 67 6e 20 28 20 61 | 52 67 6e 48 61 6e 64 6c |sRgn ( a|RgnHandl|
|00004790| 65 3a 52 65 67 69 6f 6e | 48 6e 64 6c 29 20 20 3b |e:Region|Hndl) ;|
|000047a0| 0d 50 52 4f 43 45 44 55 | 52 45 20 53 68 6f 77 43 |.PROCEDU|RE ShowC|
|000047b0| 75 72 73 6f 72 20 20 20 | 3b 0d 50 52 4f 43 45 44 |ursor |;.PROCED|
|000047c0| 55 52 45 20 53 68 6f 77 | 50 65 6e 20 20 20 3b 0d |URE Show|Pen ;.|
|000047d0| 50 52 4f 43 45 44 55 52 | 45 20 53 6f 6c 69 64 50 |PROCEDUR|E SolidP|
|000047e0| 61 74 74 65 72 6e 20 28 | 20 63 6f 6c 6f 72 4e 75 |attern (| colorNu|
|000047f0| 6d 3a 49 6e 74 65 67 65 | 72 3b 56 41 52 20 70 61 |m:Intege|r;VAR pa|
|00004800| 74 74 65 72 6e 50 74 72 | 3a 50 61 74 74 65 72 6e |tternPtr|:Pattern|
|00004810| 29 20 20 3b 0d 50 52 4f | 43 45 44 55 52 45 20 53 |) ;.PRO|CEDURE S|
|00004820| 74 72 69 6e 67 42 6f 75 | 6e 64 73 20 28 20 73 74 |tringBou|nds ( st|
|00004830| 72 3a 53 74 72 32 35 35 | 3b 56 41 52 20 72 65 73 |r:Str255|;VAR res|
|00004840| 75 6c 74 50 74 72 3a 52 | 65 63 74 29 20 20 3b 0d |ultPtr:R|ect) ;.|
|00004850| 46 55 4e 43 54 49 4f 4e | 20 53 74 72 69 6e 67 57 |FUNCTION| StringW|
|00004860| 69 64 74 68 20 28 20 73 | 74 72 3a 53 74 72 32 35 |idth ( s|tr:Str25|
|00004870| 35 29 20 3a 20 49 6e 74 | 65 67 65 72 20 3b 0d 50 |5) : Int|eger ;.P|
|00004880| 52 4f 43 45 44 55 52 45 | 20 53 75 62 50 74 20 28 |ROCEDURE| SubPt (|
|00004890| 56 41 52 20 73 72 63 50 | 74 50 74 72 3a 50 6f 69 |VAR srcP|tPtr:Poi|
|000048a0| 6e 74 3b 56 41 52 20 64 | 65 73 74 50 74 50 74 72 |nt;VAR d|estPtPtr|
|000048b0| 3a 50 6f 69 6e 74 29 20 | 20 3b 0d 50 52 4f 43 45 |:Point) | ;.PROCE|
|000048c0| 44 55 52 45 20 54 65 78 | 74 42 6f 75 6e 64 73 20 |DURE Tex|tBounds |
|000048d0| 28 20 74 65 78 74 50 74 | 72 3a 50 74 72 3b 20 74 |( textPt|r:Ptr; t|
|000048e0| 65 78 74 4c 65 6e 67 74 | 68 3a 49 6e 74 65 67 65 |extLengt|h:Intege|
|000048f0| 72 3b 56 41 52 20 72 65 | 73 75 6c 74 50 74 72 3a |r;VAR re|sultPtr:|
|00004900| 52 65 63 74 29 20 20 3b | 0d 46 55 4e 43 54 49 4f |Rect) ;|.FUNCTIO|
|00004910| 4e 20 54 65 78 74 57 69 | 64 74 68 20 28 20 74 65 |N TextWi|dth ( te|
|00004920| 78 74 50 74 72 3a 50 74 | 72 3b 20 74 65 78 74 4c |xtPtr:Pt|r; textL|
|00004930| 65 6e 67 74 68 3a 49 6e | 74 65 67 65 72 29 20 3a |ength:In|teger) :|
|00004940| 20 49 6e 74 65 67 65 72 | 20 3b 0d 50 52 4f 43 45 | Integer| ;.PROCE|
|00004950| 44 55 52 45 20 55 6e 69 | 6f 6e 52 65 63 74 20 28 |DURE Uni|onRect (|
|00004960| 20 72 65 63 74 31 50 74 | 72 3a 52 65 63 74 3b 20 | rect1Pt|r:Rect; |
|00004970| 72 65 63 74 32 50 74 72 | 3a 52 65 63 74 3b 56 41 |rect2Ptr|:Rect;VA|
|00004980| 52 20 75 6e 69 6f 6e 52 | 65 63 74 50 74 72 3a 52 |R unionR|ectPtr:R|
|00004990| 65 63 74 29 20 20 3b 0d | 50 52 4f 43 45 44 55 52 |ect) ;.|PROCEDUR|
|000049a0| 45 20 55 6e 69 6f 6e 52 | 67 6e 20 28 20 72 67 6e |E UnionR|gn ( rgn|
|000049b0| 31 48 61 6e 64 6c 65 3a | 52 65 67 69 6f 6e 48 6e |1Handle:|RegionHn|
|000049c0| 64 6c 3b 20 72 67 6e 32 | 48 61 6e 64 6c 65 3a 52 |dl; rgn2|Handle:R|
|000049d0| 65 67 69 6f 6e 48 6e 64 | 6c 3b 20 75 6e 69 6f 6e |egionHnd|l; union|
|000049e0| 52 67 6e 48 61 6e 64 6c | 65 3a 52 65 67 69 6f 6e |RgnHandl|e:Region|
|000049f0| 48 6e 64 6c 29 20 20 3b | 0d 50 52 4f 43 45 44 55 |Hndl) ;|.PROCEDU|
|00004a00| 52 45 20 58 6f 72 52 67 | 6e 20 28 20 72 67 6e 31 |RE XorRg|n ( rgn1|
|00004a10| 48 61 6e 64 6c 65 3a 52 | 65 67 69 6f 6e 48 6e 64 |Handle:R|egionHnd|
|00004a20| 6c 3b 20 72 67 6e 32 48 | 61 6e 64 6c 65 3a 52 65 |l; rgn2H|andle:Re|
|00004a30| 67 69 6f 6e 48 6e 64 6c | 3b 20 78 6f 72 52 67 6e |gionHndl|; xorRgn|
|00004a40| 48 61 6e 64 6c 65 3a 52 | 65 67 69 6f 6e 48 6e 64 |Handle:R|egionHnd|
|00004a50| 6c 29 20 20 3b 0d 0d 46 | 55 4e 43 54 49 4f 4e 20 |l) ;..F|UNCTION |
|00004a60| 47 65 74 36 34 30 43 6f | 6c 6f 72 73 3a 20 50 61 |Get640Co|lors: Pa|
|00004a70| 74 74 65 72 6e 50 74 72 | 3b 0d 50 52 4f 43 45 44 |tternPtr|;.PROCED|
|00004a80| 55 52 45 20 53 65 74 36 | 34 30 43 6f 6c 6f 72 28 |URE Set6|40Color(|
|00004a90| 63 6f 6c 6f 72 3a 20 69 | 6e 74 65 67 65 72 29 3b |color: i|nteger);|
|00004aa0| 0d 0d 49 4d 50 4c 45 4d | 45 4e 54 41 54 49 4f 4e |..IMPLEM|ENTATION|
|00004ab0| 0d 45 4e 44 2e 0d 00 00 | 00 00 00 00 00 00 00 00 |.END....|........|
|00004ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004b00| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00004b10| 56 41 52 20 64 65 73 74 | 50 74 50 74 72 3a 50 6f |VAR dest|PtPtr:Po|
|00004b20| 69 6e 74 29 20 20 3b 0d | 50 52 4f 43 45 44 55 52 |int) ;.|PROCEDUR|
|00004b30| 0b 51 75 69 63 6b 44 72 | 61 77 2e 70 02 00 00 00 |.QuickDr|aw.p....|
|00004b40| 54 45 58 54 4d 50 53 20 | 01 00 ff ff ff ff 00 00 |TEXTMPS |........|
|00004b50| 00 00 54 45 58 54 4d 50 | 53 20 01 00 ff ff ff ff |..TEXTMP|S ......|
|00004b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004b70| 00 00 a1 49 bb 98 00 00 | 4a 36 00 00 01 ac 20 54 |...I....|J6.... T|
|00004b80| 65 78 74 57 69 64 74 68 | 20 28 20 74 65 78 74 50 |extWidth| ( textP|
|00004b90| 74 72 3a 50 74 72 3b 20 | 74 65 78 74 4c 65 6e 67 |tr:Ptr; |textLeng|
|00004ba0| 74 68 3a 49 6e 74 65 67 | 65 72 29 20 3a 20 49 6e |th:Integ|er) : In|
|00004bb0| 74 65 67 65 72 20 3b 0d | 50 52 4f 43 45 44 55 52 |teger ;.|PROCEDUR|
|00004bc0| 45 20 55 6e 69 6f 6e 52 | 65 63 74 20 28 20 72 65 |E UnionR|ect ( re|
|00004bd0| 63 74 31 50 74 72 3a 52 | 65 63 74 3b 20 72 65 63 |ct1Ptr:R|ect; rec|
|00004be0| 74 32 50 74 72 3a 52 65 | 63 74 3b 56 41 52 20 75 |t2Ptr:Re|ct;VAR u|
|00004bf0| 6e 69 6f 6e 52 65 63 74 | 50 74 72 3a 52 65 63 74 |nionRect|Ptr:Rect|
|00004c00| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 19 fc 18 |...H..Mo|naco....|
|00004c10| fc 19 fc 19 02 ef 01 1d | 02 ef 01 1e 02 fa 01 1d |........|........|
|00004c20| 02 fa 01 1e 00 00 00 06 | 00 09 00 3c 00 24 01 53 |........|...<.$.S|
|00004c30| 01 bd 00 3c 00 24 01 53 | 01 bd a4 a1 cb 54 00 00 |...<.$.S|.....T..|
|00004c40| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 00 1e |........|........|
|00004c50| 00 3c 00 24 01 53 01 bd | 00 3c 00 24 01 53 01 bd |.<.$.S..|.<.$.S..|
|00004c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004c70| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 93 |.....n..|.n...>..|
|00004c80| df d8 0e b2 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |........|.>..MPSR|
|00004c90| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00004ca0| 03 f0 ff ff 00 00 00 4c | 00 00 00 00 00 00 00 00 |.......L|........|
|00004cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004cc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+